Skip to content

Commit

Permalink
Add a missing INLINABLE pragma (#5687)
Browse files Browse the repository at this point in the history
  • Loading branch information
zliu41 authored Dec 18, 2023
1 parent d638261 commit 3b6eb36
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions plutus-ledger-api/src/PlutusLedgerApi/V1/Value.hs
Original file line number Diff line number Diff line change
Expand Up @@ -261,6 +261,7 @@ symbols (Value mp) = Map.keys mp
singleton :: CurrencySymbol -> TokenName -> Integer -> Value
singleton c tn i = Value (Map.singleton c (Map.singleton tn i))

{-# INLINABLE lovelaceValue #-}
lovelaceValue :: Lovelace -> Value
-- | A 'Value' containing the given quantity of Lovelace.
lovelaceValue = singleton adaSymbol adaToken . getLovelace
Expand Down

0 comments on commit 3b6eb36

Please sign in to comment.