diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Commands/Transaction.hs b/cardano-cli/src/Cardano/CLI/EraBased/Commands/Transaction.hs
index b6ded2e2ed..654785545e 100644
--- 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
index 3d3df85009..329f375a96 100644
--- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs
+++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs
@@ -928,7 +928,7 @@ runTransactionSubmitCmd :: ()
 runTransactionSubmitCmd
     Cmd.TransactionSubmitCmdArgs
       { nodeSocketPath
-      , anyConsensusModeParams = cModeParams
+      , consensusModeParams
       , networkId
       , txFile
       } = do
@@ -937,7 +937,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
index 6cc0c63f60..4a86d67f1b 100644
--- a/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs
+++ b/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs
@@ -41,8 +41,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' ->
@@ -180,13 +180,13 @@ runLegacyTransactionSubmitCmd :: ()
   -> ExceptT TxCmdError IO ()
 runLegacyTransactionSubmitCmd
     socketPath
-    anyConsensusModeParams
+    consensusModeParams
     network
     txFilePath =
   runTransactionSubmitCmd
     ( Cmd.TransactionSubmitCmdArgs
         socketPath
-        anyConsensusModeParams
+        consensusModeParams
         network
         txFilePath
      )