Sulkta-Coop/agora
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add trivial scripts to export

Browse source
This commit is contained in:
Emily Martins 2022-07-13 16:29:43 +02:00
parent 9f2066d138
commit d3db5552ff
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
agora-scripts/Main.hs
View file

@ -50,6 +50,7 @@ main =
builders :: Builders builders :: Builders
builders = builders =
def def
-- Agora scripts
& insertBuilder "governorPolicy" ((.governorPolicyInfo) . agoraScripts) & insertBuilder "governorPolicy" ((.governorPolicyInfo) . agoraScripts)
& insertBuilder "governorValidator" ((.governorValidatorInfo) . agoraScripts) & insertBuilder "governorValidator" ((.governorValidatorInfo) . agoraScripts)
& insertBuilder "stakePolicy" ((.stakePolicyInfo) . agoraScripts) & insertBuilder "stakePolicy" ((.stakePolicyInfo) . agoraScripts)
@ -59,6 +60,17 @@ builders =
& insertBuilder "treasuryValidator" ((.treasuryValidatorInfo) . agoraScripts) & insertBuilder "treasuryValidator" ((.treasuryValidatorInfo) . agoraScripts)
& insertBuilder "authorityTokenPolicy" ((.authorityTokenPolicyInfo) . 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 )
{- | Create scripts from params. {- | Create scripts from params.
@since 0.2.0 @since 0.2.0