WIP

IntersectMBO · Nov 14, 2023 · 68031f4 · 68031f4
1 parent 8bff8f6
commit 68031f4
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Commands/Transaction.hs b/cardano-cli/src/Cardano/CLI/Legacy/Commands/Transaction.hs
@@ -125,7 +125,7 @@ data LegacyTransactionCmds
   | TransactionCalculateMinValueCmd
       AnyCardanoEra
       ProtocolParamsFile
-      TxOutAnyEra
+      TxOutShelleyBasedEra
   | TransactionHashScriptDataCmd
       ScriptDataOrFile
   | TransactionTxIdCmd

diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Options.hs b/cardano-cli/src/Cardano/CLI/Legacy/Options.hs
@@ -425,7 +425,7 @@ pTransaction envCli =
     TransactionCalculateMinValueCmd
       <$> pLegacyCardanoEra envCli
       <*> pProtocolParamsFile
-      <*> pTxOut
+      <*> pTxOutShelleyBased
 
   pTxHashScriptData :: Parser LegacyTransactionCmds
   pTxHashScriptData =

diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs b/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs
@@ -80,7 +80,7 @@ runLegacyTransactionBuildCmd :: ()
   -> [TxIn] -- ^ Read only reference inputs
   -> [RequiredSigner] -- ^ Required signers
   -> [TxIn] -- ^ Transaction inputs for collateral, only key witnesses, no scripts.
-  -> Maybe TxOutAnyEra -- ^ Return collateral
+  -> Maybe TxOutShelleyBasedEra -- ^ Return collateral
   -> Maybe Lovelace -- ^ Total collateral
   -> [TxOutAnyEra]
   -> TxOutChangeAddress
@@ -125,7 +125,7 @@ runLegacyTransactionBuildRawCmd :: ()
   -> [(TxIn, Maybe (ScriptWitnessFiles WitCtxTxIn))]
   -> [TxIn] -- ^ Read only reference inputs
   -> [TxIn] -- ^ Transaction inputs for collateral, only key witnesses, no scripts.
-  -> Maybe TxOutAnyEra
+  -> Maybe TxOutShelleyBasedEra -- ^ Return collateral
   -> Maybe Lovelace -- ^ Total collateral
   -> [RequiredSigner]
   -> [TxOutAnyEra]
@@ -238,7 +238,7 @@ runLegacyTransactionCalculateMinFeeCmd
 runLegacyTransactionCalculateMinValueCmd :: ()
   => AnyShelleyBasedEra
   -> ProtocolParamsFile
-  -> TxOutAnyEra
+  -> TxOutShelleyBasedEra
   -> ExceptT TxCmdError IO ()
 runLegacyTransactionCalculateMinValueCmd
     (AnyShelleyBasedEra era)