Query over single connection in runTxBuildCmd

IntersectMBO · Jul 30, 2023 · e777849 · e777849
1 parent f622f47
commit e777849
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Run/Legacy/Transaction.hs b/cardano-cli/src/Cardano/CLI/Run/Legacy/Transaction.hs
@@ -351,10 +351,6 @@ runTxBuildCmd
                             , localNodeSocketPath = socketPath
                             }
 
-  AnyCardanoEra nodeEra <- lift (executeLocalStateQueryExpr localNodeConnInfo Nothing (determineEraExpr cModeParams))
-    & onLeft (left . ShelleyTxCmdQueryConvenienceError . AcqFailure)
-    & onLeft (left . ShelleyTxCmdQueryConvenienceError . QceUnsupportedNtcVersion)
-
   inputsAndMaybeScriptWits <- firstExceptT ShelleyTxCmdScriptWitnessError $ readScriptWitnessFiles cEra txins
   certFilesAndMaybeScriptWits <- firstExceptT ShelleyTxCmdScriptWitnessError $ readScriptWitnessFiles cEra certs
 
@@ -435,6 +431,10 @@ runTxBuildCmd
 
       case consensusMode of
         CardanoMode -> do
+          AnyCardanoEra nodeEra <- lift (executeLocalStateQueryExpr localNodeConnInfo Nothing (determineEraExpr cModeParams))
+            & onLeft (left . ShelleyTxCmdQueryConvenienceError . AcqFailure)
+            & onLeft (left . ShelleyTxCmdQueryConvenienceError . QceUnsupportedNtcVersion)
+
           (nodeEraUTxO, _, eraHistory, systemStart, _, _) <-
             lift (executeLocalStateQueryExpr localNodeConnInfo Nothing (queryStateForBalancedTx nodeEra allTxInputs []))
               & onLeft (left . ShelleyTxCmdQueryConvenienceError . AcqFailure)