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

add unreleased section to CHANGELOG.md

Browse source
This commit is contained in:
Emily Martins 2022-07-13 16:29:56 +02:00
parent 477be7c444
commit 541ade0653
2 changed files with 42 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
agora-scripts/Main.hs
View file

@ -59,17 +59,20 @@ builders =
& insertBuilder "proposalValidator" ((.proposalValidatorInfo) . agoraScripts)
& insertBuilder "treasuryValidator" ((.treasuryValidatorInfo) . agoraScripts)
& insertBuilder "authorityTokenPolicy" ((.authorityTokenPolicyInfo) . agoraScripts)
-- Trivial scripts. These are useful for testing, but they likely aren't useful
-- to you if you are actually interested in deploying to mainnet.
& insertBuilder "alwaysSucceedsPolicy"
(\() -> mkPolicyInfo $ plam $ \_ _ -> popaque (pconstant ()) )
& insertBuilder "alwaysSucceedsValidator"
(\() -> mkValidatorInfo $ plam $ \_ _ _ -> popaque (pconstant ()) )
& insertBuilder "neverSucceedsPolicy"
(\() -> mkPolicyInfo $ plam $ \_ _ -> perror )
& insertBuilder "neverSucceedsValidator"
(\() -> mkValidatorInfo $ plam $ \_ _ _ -> perror )
& insertBuilder
"alwaysSucceedsPolicy"
(\() -> mkPolicyInfo $ plam $ \_ _ -> popaque (pconstant ()))
& insertBuilder
"alwaysSucceedsValidator"
(\() -> mkValidatorInfo $ plam $ \_ _ _ -> popaque (pconstant ()))
& insertBuilder
"neverSucceedsPolicy"
(\() -> mkPolicyInfo $ plam $ \_ _ -> perror)
& insertBuilder
"neverSucceedsValidator"
(\() -> mkValidatorInfo $ plam $ \_ _ _ -> perror)
{- | Create scripts from params.