Fees: add a type synonym for logs returned by evalTxExUnitsWithLogs

IntersectMBO · Jun 17, 2024 · 854347a · 854347a
1 parent f6c231a
commit 854347a
Showing 1 changed file with 6 additions and 2 deletions.
diff --git 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))