ValueParser: add new UTxO role

IntersectMBO · Nov 5, 2024 · 0459dab · 0459dab
1 parent eba6903
commit 0459dab
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/cardano-api/gen/Test/Gen/Cardano/Api/Typed.hs b/cardano-api/gen/Test/Gen/Cardano/Api/Typed.hs
@@ -399,6 +399,8 @@ genValueForRole w =
       genValueForMinting
     RoleTxOut ->
       fromLedgerValue sbe <$> genValueForTxOut sbe
+    RoleUTxO ->
+      fromLedgerValue sbe <$> genValueForTxOut sbe
  where
   sbe = maryEraOnwardsToShelleyBasedEra w
 

diff --git a/cardano-api/internal/Cardano/Api/ValueParser.hs b/cardano-api/internal/Cardano/Api/ValueParser.hs
@@ -4,6 +4,7 @@ module Cardano.Api.ValueParser
   ( parseValue
   , parseTxOutMultiAssetValue
   , parseMintingMultiAssetValue
+  , parseUTxOValue
   , assetName
   , policyId
   , ValueRole (..)
@@ -36,6 +37,8 @@ data ValueRole
     RoleTxOut
   | -- | The value is used as a minting policy.
     RoleMint
+  | -- | The value is used as a utxo
+    RoleUTxO
   deriving (Eq, Show, Enum, Bounded)
 
 -- | Parse a 'Value' from its string representation. The @role@ argument for which purpose
@@ -53,6 +56,10 @@ parseValue role = do
       unless (allPositive value) $
         fail "Value must be positive in a transaction output"
       return value
+    RoleUTxO -> do
+      unless (allPositive value) $
+        fail "Value must be positive in an UTxO"
+      return value
     RoleMint -> do
       let (Coin lovelace) = selectLovelace value
       when (lovelace /= 0) $
@@ -65,6 +72,9 @@ parseTxOutMultiAssetValue = parseValue RoleTxOut
 parseMintingMultiAssetValue :: Parser Value
 parseMintingMultiAssetValue = parseValue RoleMint
 
+parseUTxOValue :: Parser Value
+parseUTxOValue = parseValue RoleUTxO
+
 -- | Evaluate a 'ValueExpr' and construct a 'Value'.
 evalValueExpr :: ValueExpr -> Value
 evalValueExpr vExpr =