Transaction balancing functions

Author: Jimbo4350

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

@@ -27,6 +27,7 @@ module Cardano.Api.Experimental
 
     -- ** Transaction fee related
   , estimateBalancedTxBody
+  , evaluateTransactionFee
 
     -- ** Era-related
   , BabbageEra

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

@@ -55,6 +55,7 @@ import Cardano.Ledger.Conway qualified as Ledger
 import Cardano.Ledger.Core qualified as Ledger
 import Cardano.Ledger.Hashes qualified as L
 import Cardano.Ledger.State qualified as L
+import Cardano.Ledger.Val qualified as L
 
 import Control.Monad.Error.Class
 import Data.Aeson (FromJSON (..), ToJSON, withText)
@@ -309,6 +310,7 @@ type EraCommonConstraints era =
   , L.EraTxCert (LedgerEra era)
   , L.EraTxOut (LedgerEra era)
   , L.EraUTxO (LedgerEra era)
+  , L.Val (L.Value (LedgerEra era))
   , L.Value (LedgerEra era) ~ L.MaryValue
   , FromCBOR (ChainDepState (ConsensusProtocol era))
   , L.NativeScript (LedgerEra era) ~ L.Timelock (LedgerEra era)

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

@@ -20,6 +20,7 @@ module Cardano.Api.Experimental.Tx.Internal.BodyContent.New
   , TxVotingProcedures (..)
   , TxWithdrawals (..)
   , TxBodyContent (..)
+  , Datum (..)
   , defaultTxBodyContent
   , collectTxBodyScriptWitnessRequirements
   , makeUnsignedTx
@@ -51,6 +52,9 @@ module Cardano.Api.Experimental.Tx.Internal.BodyContent.New
   , setTxVotingProcedures
   , setTxWithdrawals
 
+    -- * Internal conversions
+  , convProposalProcedures
+
     -- * Legacy conversions
   , legacyDatumToDatum
   , fromLegacyTxOut