Add txOutAddCoin function to primitives for transaction.

cardano-foundation · Oct 12, 2021 · a0ff4ab · a0ff4ab
1 parent 2c6f1a2
commit a0ff4ab
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/lib/core/src/Cardano/Wallet/Primitive/Types/Tx.hs b/lib/core/src/Cardano/Wallet/Primitive/Types/Tx.hs
@@ -65,6 +65,7 @@ module Cardano.Wallet.Primitive.Types.Tx
     , txIns
     , txMetadataIsNull
     , txOutCoin
+    , txOutAddCoin
     , failedScriptValidation
 
     -- * Constants
@@ -316,6 +317,11 @@ data TxOut = TxOut
 txOutCoin :: TxOut -> Coin
 txOutCoin = TokenBundle.getCoin . view #tokens
 
+-- Add a fixed coin value to an existing output.
+txOutAddCoin :: Coin -> TxOut -> TxOut
+txOutAddCoin val (TxOut addr tokens) =
+    TxOut addr (tokens <> TokenBundle.fromCoin val)
+
 -- Since the 'TokenBundle' type deliberately does not provide an 'Ord' instance
 -- (as that would lead to arithmetically invalid orderings), this means we can't
 -- automatically derive an 'Ord' instance for the 'TxOut' type.