Expose TxFeeEstimationError

Author: Jimbo4350

cardano-api/src/Cardano/Api/Experimental/Tx.hs

@@ -188,6 +188,7 @@ module Cardano.Api.Experimental.Tx
   , evaluateTransactionExecutionUnits
   , makeTransactionBodyAutoBalance
   , TxBodyErrorAutoBalance (..)
+  , TxFeeEstimationError (..)
 
     -- ** Internal functions
   , extractExecutionUnits

cardano-api/src/Cardano/Api/Experimental/Tx/Internal/Fee.hs

@@ -13,6 +13,7 @@
 
 module Cardano.Api.Experimental.Tx.Internal.Fee
   ( TxBodyErrorAutoBalance (..)
+  , TxFeeEstimationError (..)
   , collectTxBodyScriptWitnesses
   , estimateBalancedTxBody
   , evaluateTransactionExecutionUnits
@@ -214,6 +215,11 @@ data TxFeeEstimationError era
   | TxFeeEstimationBalanceError (TxBodyErrorAutoBalance (LedgerEra era))
   deriving Show
 
+instance Error (TxFeeEstimationError era) where
+  prettyError = \case
+    TxFeeEstimationScriptExecutionError e -> prettyError e
+    TxFeeEstimationBalanceError e -> prettyError e
+
 -- | Use when you do not have access to the UTxOs you intend to spend
 estimateBalancedTxBody'
   :: forall era