Adapt to introduction of StateForBalancedTx in API

IntersectMBO · Jun 24, 2024 · 614e002 · 614e002
1 parent 6762dbd
commit 614e002
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs
@@ -225,7 +225,7 @@ runTransactionBuildCmd
         & onLeft (left . TxCmdQueryConvenienceError . AcqFailure)
         & onLeft (left . TxCmdQueryConvenienceError . QceUnsupportedNtcVersion)
 
-      (txEraUtxo, _, eraHistory, systemStart, _, _, _) <-
+      StateForBalancedTx { txUtxo = txEraUtxo, eraHistory, systemStart } <-
         lift (executeLocalStateQueryExpr localNodeConnInfo Consensus.VolatileTip (queryStateForBalancedTx nodeEra allTxInputs []))
           & onLeft (left . TxCmdQueryConvenienceError . AcqFailure)
           & onLeft (left . TxCmdQueryConvenienceError)
@@ -799,7 +799,7 @@ runTxBuild
           TxCertificates _ cs _ -> cs
           _ -> []
 
-  (txEraUtxo, pparams, eraHistory, systemStart, stakePools, stakeDelegDeposits, drepDelegDeposits) <-
+  StateForBalancedTx {txUtxo = txEraUtxo, pparams, eraHistory, systemStart, stakePools, stakeDelegDeposits, drepDelegDeposits } <-
     lift (executeLocalStateQueryExpr localNodeConnInfo Consensus.VolatileTip $ queryStateForBalancedTx nodeEra allTxInputs certs)
       & onLeft (left . TxCmdQueryConvenienceError . AcqFailure)
       & onLeft (left . TxCmdQueryConvenienceError)
@@ -824,7 +824,7 @@ runTxBuild
                      txMetadata
                      txUpdateProposal
                      votingProcedures proposals
-                     mCurrentTreasuryValue mTreasuryDonation 
+                     mCurrentTreasuryValue mTreasuryDonation
 
   firstExceptT TxCmdTxInsDoNotExist
     . hoistEither $ txInsExistInUTxO allTxInputs txEraUtxo