Progress

IntersectMBO · May 16, 2024 · f54073c · f54073c
1 parent 8a97678
commit f54073c
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs
@@ -284,9 +284,7 @@ runTransactionBuildEstimateCmd
     , txBodyOutFile
     } = do
   let sbe = maryEraOnwardsToShelleyBasedEra eon
-  legacyPParams <- firstExceptT TxCmdProtocolParamsError $ readProtocolParameters protocolParamsFile
-  ledgerPParams <- hoistEither . first TxCmdProtocolParamsConverstionError
-                               $ convertToLedgerProtocolParameters sbe legacyPParams
+  ledgerPParams <- firstExceptT TxCmdProtocolParamsError $ readProtocolParameters sbe protocolParamsFile
   inputsAndMaybeScriptWits <- firstExceptT TxCmdScriptWitnessError
                                 $ readScriptWitnessFiles sbe txins
   certFilesAndMaybeScriptWits <- firstExceptT TxCmdScriptWitnessError
@@ -337,7 +335,7 @@ runTransactionBuildEstimateCmd
 
   txBodyContent <- hoistEither $ constructTxBodyContent
                      sbe mScriptValidity
-                     (Just $ unLedgerProtocolParameters ledgerPParams)
+                     (Just ledgerPParams)
                      inputsAndMaybeScriptWits
                      readOnlyRefIns
                      filteredTxinsc
@@ -366,7 +364,7 @@ runTransactionBuildEstimateCmd
 
   BalancedTxBody _ balancedTxBody _ _ <-
     hoistEither $ first TxCmdFeeEstimationError $
-      estimateBalancedTxBody eon txBodyContent (unLedgerProtocolParameters ledgerPParams) poolsToDeregister
+      estimateBalancedTxBody eon txBodyContent ledgerPParams poolsToDeregister
                              stakeCredentialsToDeregisterMap drepsToDeregisterMap
                              pScriptExecUnits totCol shelleyWitnesses (fromMaybe 0 mByronWitnesses)
                              (fromMaybe 0 (unReferenceScriptSize <$> totalReferenceScriptSize)) (anyAddressInShelleyBasedEra sbe changeAddr)