claudiomaradonna/plutus-pioneer-program
1
0
Fork 0
mirror of https://github.com/FiloSpaTeam/plutus-pioneer-program.git synced 2024-12-22 21:42:11 +01:00
Code Issues Projects Releases Packages Wiki Activity

reformatting

Browse source
This commit is contained in:
Lars Brünjes 2021-05-26 11:48:18 +02:00
parent 64d795fbb2
commit 7d03111171
No known key found for this signature in database
GPG key ID: B488B9045DC1A087
1 changed files with 17 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
code/week08/src/Week08/TokenSale.hs
View file

@ -66,16 +66,29 @@ lovelaces = Ada.getLovelace . Ada.fromValue
transition :: TokenSale -> State Integer -> TSRedeemer -> Maybe (TxConstraints Void Void, State Integer) transition :: TokenSale -> State Integer -> TSRedeemer -> Maybe (TxConstraints Void Void, State Integer)
transition ts s r = case (stateValue s, stateData s, r) of transition ts s r = case (stateValue s, stateData s, r) of
(v, _, SetPrice p) | p >= 0 -> Just ( Constraints.mustBeSignedBy (tsSeller ts) (v, _, SetPrice p) | p >= 0 -> Just ( Constraints.mustBeSignedBy (tsSeller ts)
, State p (v <> nft (negate 1)) , State p $
v <>
nft (negate 1)
) )
(v, p, AddTokens n) | n > 0 -> Just ( mempty (v, p, AddTokens n) | n > 0 -> Just ( mempty
, State p $ v <> nft (negate 1) <> assetClassValue (tsToken ts) n , State p $
v <>
nft (negate 1) <>
assetClassValue (tsToken ts) n
) )
(v, p, BuyTokens n) | n > 0 -> Just ( mempty (v, p, BuyTokens n) | n > 0 -> Just ( mempty
, State p $ v <> nft (negate 1) <> assetClassValue (tsToken ts) (negate n) <> lovelaceValueOf (n * p) , State p $
v <>
nft (negate 1) <>
assetClassValue (tsToken ts) (negate n) <>
lovelaceValueOf (n * p)
) )
(v, p, Withdraw n l) | n >= 0 && l >= 0 -> Just ( Constraints.mustBeSignedBy (tsSeller ts) (v, p, Withdraw n l) | n >= 0 && l >= 0 -> Just ( Constraints.mustBeSignedBy (tsSeller ts)
, State p $ v <> nft (negate 1) <> assetClassValue (tsToken ts) (negate n) <> lovelaceValueOf (negate l) , State p $
v <>
nft (negate 1) <>
assetClassValue (tsToken ts) (negate n) <>
lovelaceValueOf (negate l)
) )
_ -> Nothing _ -> Nothing
where where