Add Cardano.Api.Tx.UTxO.totalValue

Author: locallycompact

cardano-api/src/Cardano/Api/Internal/Tx/UTxO.hs

@@ -21,6 +21,7 @@ import Cardano.Api.Internal.Tx.Body
   , toShelleyTxOut
   )
 import Cardano.Api.Internal.TxIn (TxIn (..))
+import Cardano.Api.Internal.Value (Value (..))
 
 import Cardano.Ledger.Babbage ()
 import Cardano.Ledger.Shelley.UTxO qualified as Ledger
@@ -110,6 +111,10 @@ toList (UTxO xs) = Map.toList xs
 toMap :: UTxO era -> Map TxIn (TxOut CtxUTxO era)
 toMap = unUTxO
 
+-- | Sum the total value of the UTxO.
+totalValue :: UTxO era -> Value
+totalValue = foldMap txOutValue . unUTxO
+
 -- | Convert from a `cardano-api` `UTxO` to a `cardano-ledger` UTxO.
 toShelleyUTxO :: ShelleyBasedEra era -> UTxO era -> Ledger.UTxO (ShelleyLedgerEra era)
 toShelleyUTxO sbe =

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

@@ -12,6 +12,7 @@ module Cardano.Api.Tx.UTxO
   , UTxO.fromList
   , UTxO.toList
   , UTxO.toMap
+  , UTxO.totalValue
   , UTxO.fromShelleyUTxO
   , UTxO.toShelleyUTxO
   )