From 854347a2da0afb8c4c08125ff03232bb517ee0d7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cl=C3=A9ment=20Hurlin?= Date: Mon, 17 Jun 2024 17:53:01 +0200 Subject: [PATCH] Fees: add a type synonym for logs returned by evalTxExUnitsWithLogs --- cardano-api/internal/Cardano/Api/Fees.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/cardano-api/internal/Cardano/Api/Fees.hs b/cardano-api/internal/Cardano/Api/Fees.hs index 2085df839..fe013b1f6 100644 --- a/cardano-api/internal/Cardano/Api/Fees.hs +++ b/cardano-api/internal/Cardano/Api/Fees.hs @@ -102,6 +102,10 @@ import Lens.Micro ((.~), (^.)) {- HLINT ignore "Redundant return" -} +-- | Type synonym for logs returned by the ledger's @evalTxExUnitsWithLogs@ function. +-- for scripts in transactions. +type EvalTxExecutionUnitsLog = [Text] + data AutoBalanceError era = AutoBalanceEstimationError (TxFeeEstimationError era) | AutoBalanceCalculationError (TxBodyErrorAutoBalance era) @@ -619,7 +623,7 @@ evaluateTransactionExecutionUnits :: forall era. () -> UTxO era -> TxBody era -> Either (TransactionValidityError era) - (Map ScriptWitnessIndex (Either ScriptExecutionError ([Text], ExecutionUnits))) + (Map ScriptWitnessIndex (Either ScriptExecutionError (EvalTxExecutionUnitsLog, ExecutionUnits))) evaluateTransactionExecutionUnits era systemstart epochInfo pp utxo txbody = case makeSignedTransaction' era [] txbody of ShelleyTx sbe tx' -> evaluateTransactionExecutionUnitsShelley sbe systemstart epochInfo pp utxo tx' @@ -632,7 +636,7 @@ evaluateTransactionExecutionUnitsShelley :: forall era. () -> UTxO era -> L.Tx (ShelleyLedgerEra era) -> Either (TransactionValidityError era) - (Map ScriptWitnessIndex (Either ScriptExecutionError ([Text], ExecutionUnits))) + (Map ScriptWitnessIndex (Either ScriptExecutionError (EvalTxExecutionUnitsLog, ExecutionUnits))) evaluateTransactionExecutionUnitsShelley sbe systemstart epochInfo (LedgerProtocolParameters pp) utxo tx = caseShelleyToMaryOrAlonzoEraOnwards (const (Right Map.empty))