ValueParser: expose new functions that avoid using the role

IntersectMBO · Nov 6, 2024 · 273e276 · 273e276
1 parent dae49f1
commit 273e276
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/cardano-api/internal/Cardano/Api/ValueParser.hs b/cardano-api/internal/Cardano/Api/ValueParser.hs
@@ -2,6 +2,9 @@
 
 module Cardano.Api.ValueParser
   ( parseValue
+  , parseTxOutMultiAssetValue
+  , parseMintingMultiAssetValue
+  , parseUTxOValue
   , assetName
   , policyId
   , ValueRole (..)
@@ -59,6 +62,15 @@ parseValue role = do
           "Lovelace must be zero in minting value: " <> show value
       return value
 
+parseTxOutMultiAssetValue :: Parser Value
+parseTxOutMultiAssetValue = parseValue RoleUTxO
+
+parseMintingMultiAssetValue :: Parser Value
+parseMintingMultiAssetValue = parseValue RoleMint
+
+parseUTxOValue :: Parser Value
+parseUTxOValue = parseValue RoleUTxO
+
 -- | Evaluate a 'ValueExpr' and construct a 'Value'.
 evalValueExpr :: ValueExpr -> Value
 evalValueExpr vExpr =