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

Update types so that ply envlope can be used in Purescript

Browse source
This commit is contained in:
Seungheon Oh 2023-03-04 00:52:10 -06:00
parent 61281fbf1b
commit f0917565a2
14 changed files with 115 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

5
agora/Agora/Effect.hs
View file

@ -38,10 +38,11 @@ makeEffect ::
Term s (PAsData PTxInfo) ->
Term s POpaque
) ->
Term s (PTagged AuthorityTokenTag PCurrencySymbol) ->
Term s (PAsData (PTagged AuthorityTokenTag PCurrencySymbol)) ->
Term s PValidator
makeEffect f atSymbol =
makeEffect f atSymbol' =
plam $ \datum _redeemer ctx' -> unTermCont $ do
atSymbol <- pletC $ pfromData atSymbol'
ctx <- pletFieldsC @'["txInfo", "purpose"] ctx'
-- Convert input datum, PData, into desierable type