Merge pull request #832 from locallycompact/lc/utxo-toMap

Add extra functions to `Cardano.Api.Tx.UTxO`.

Author: carbolymer

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

@@ -67,6 +67,10 @@ singleton i o = UTxO $ Map.singleton i o
 lookup :: TxIn -> UTxO era -> Maybe (TxOut CtxUTxO era)
 lookup k = Map.lookup k . unUTxO
 
+-- | Synonym for `lookup`.
+resolveTxIn :: TxIn -> UTxO era -> Maybe (TxOut CtxUTxO era)
+resolveTxIn = Cardano.Api.Internal.Tx.UTxO.lookup
+
 -- | Filter all `TxOut` that satisfy the predicate.
 filter :: (TxOut CtxUTxO era -> Bool) -> UTxO era -> UTxO era
 filter fn = UTxO . Map.filter fn . unUTxO
@@ -95,6 +99,10 @@ fromList = UTxO . Map.fromList
 toList :: UTxO era -> [(TxIn, TxOut CtxUTxO era)]
 toList (UTxO xs) = Map.toList xs
 
+-- | Convert to a Map of TxIn/TxOut.
+toMap :: UTxO era -> Map TxIn (TxOut CtxUTxO era)
+toMap = 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

@@ -3,13 +3,15 @@ module Cardano.Api.Tx.UTxO
   , UTxO.empty
   , UTxO.singleton
   , UTxO.lookup
+  , UTxO.resolveTxIn
   , UTxO.filter
   , UTxO.filterWithKey
   , UTxO.inputSet
   , UTxO.txOutputs
   , UTxO.difference
   , UTxO.fromList
   , UTxO.toList
+  , UTxO.toMap
   , UTxO.fromShelleyUTxO
   , UTxO.toShelleyUTxO
   )