Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

remove all instances of P.do in favour of TermCont.

Browse source
This commit is contained in:
Emily Martins 2022-05-12 13:45:44 +02:00
parent 42a3db991a
commit a404a81cad
14 changed files with 671 additions and 639 deletions
Download patch file Download diff file Expand all files Collapse all files

6
agora/Agora/Governor.hs
View file

@ -58,11 +58,9 @@ data Governor
-- | Policy for Governors.
governorPolicy :: Governor -> ClosedTerm PMintingPolicy
governorPolicy _ =
plam $ \_redeemer _ctx' -> P.do
popaque (pconstant ())
plam $ \_redeemer _ctx' -> popaque (pconstant ())
-- | Validator for Governors.
governorValidator :: Governor -> ClosedTerm PValidator
governorValidator _ =
plam $ \_datum _redeemer _ctx' -> P.do
popaque (pconstant ())
plam $ \_datum _redeemer _ctx' -> popaque (pconstant ())