diff --git a/cardano-api/internal/Cardano/Api/ValueParser.hs b/cardano-api/internal/Cardano/Api/ValueParser.hs index 6238cdf40..340c4d1d9 100644 --- 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 =