Rename anyConsensusModeParams to consensusModeParams

IntersectMBO · Oct 26, 2023 · 6e61ba0 · 6e61ba0
1 parent e2fba4d
commit 6e61ba0
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 10 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Commands/Transaction.hs b/cardano-cli/src/Cardano/CLI/EraBased/Commands/Transaction.hs
@@ -147,10 +147,10 @@ data TransactionSignWitnessCmdArgs = TransactionSignWitnessCmdArgs
   } deriving Show
 
 data TransactionSubmitCmdArgs = TransactionSubmitCmdArgs
-  { nodeSocketPath          :: !SocketPath
-  , anyConsensusModeParams  :: !(ConsensusModeParams CardanoMode)
-  , networkId               :: !NetworkId
-  , txFile                  :: !FilePath
+  { nodeSocketPath      :: !SocketPath
+  , consensusModeParams :: !(ConsensusModeParams CardanoMode)
+  , networkId           :: !NetworkId
+  , txFile              :: !FilePath
   } deriving Show
 
 newtype TransactionPolicyIdCmdArgs = TransactionPolicyIdCmdArgs

diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs
@@ -926,7 +926,7 @@ runTransactionSubmitCmd :: ()
 runTransactionSubmitCmd
     Cmd.TransactionSubmitCmdArgs
       { nodeSocketPath
-      , anyConsensusModeParams = cModeParams
+      , consensusModeParams
       , networkId
       , txFile
       } = do
@@ -935,7 +935,7 @@ runTransactionSubmitCmd
   let eraInMode = toEraInCardanoMode era
   let txInMode = TxInMode tx eraInMode
       localNodeConnInfo = LocalNodeConnectInfo
-                            { localConsensusModeParams = cModeParams
+                            { localConsensusModeParams = consensusModeParams
                             , localNodeNetworkId = networkId
                             , localNodeSocketPath = nodeSocketPath
                             }

diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs b/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs
@@ -38,8 +38,8 @@ runLegacyTransactionCmds = \case
                metadataSchema scriptFiles metadataFiles mProtocolParamsFile mUpProp out
   TransactionSignCmd txinfile skfiles network txoutfile ->
       runLegacyTransactionSignCmd txinfile skfiles network txoutfile
-  TransactionSubmitCmd mNodeSocketPath anyConsensusModeParams network txFp ->
-      runLegacyTransactionSubmitCmd mNodeSocketPath anyConsensusModeParams network txFp
+  TransactionSubmitCmd mNodeSocketPath consensusModeParams network txFp ->
+      runLegacyTransactionSubmitCmd mNodeSocketPath consensusModeParams network txFp
   TransactionCalculateMinFeeCmd txbody nw pParamsFile nInputs nOutputs nShelleyKeyWitnesses nByronKeyWitnesses ->
       runLegacyTransactionCalculateMinFeeCmd txbody nw pParamsFile nInputs nOutputs nShelleyKeyWitnesses nByronKeyWitnesses
   TransactionCalculateMinValueCmd era pParamsFile txOuts' ->
@@ -164,13 +164,13 @@ runLegacyTransactionSubmitCmd :: ()
   -> ExceptT TxCmdError IO ()
 runLegacyTransactionSubmitCmd
     socketPath
-    anyConsensusModeParams
+    consensusModeParams
     network
     txFilePath =
   runTransactionSubmitCmd
     ( Cmd.TransactionSubmitCmdArgs
         socketPath
-        anyConsensusModeParams
+        consensusModeParams
         network
         txFilePath
      )