From dacd52c915ef01e261449ad7cd3c7a0fb61164e2 Mon Sep 17 00:00:00 2001 From: Hongrui Fang Date: Wed, 18 Jan 2023 04:06:11 +0800 Subject: [PATCH] export `alwaysSucceedsPolicy` in the linker --- agora/Agora/Linker.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/agora/Agora/Linker.hs b/agora/Agora/Linker.hs index 7f57520..8791d8d 100644 --- a/agora/Agora/Linker.hs +++ b/agora/Agora/Linker.hs @@ -114,6 +114,11 @@ linker = do , Tagged AuthorityTokenTag CurrencySymbol ] "agora:mutateGovernorValidator" + alwaysSucceedsPolicy' <- + fetchTS + @MintingPolicyRole + @'[] + "agora:alwaysSucceedsPolicy" governor <- getParam @@ -180,6 +185,7 @@ linker = do , ("agora:noOpValidator", toRoledScript noOpVal') , ("agora:treasuryWithdrawalValidator", toRoledScript treaWithdrawalVal') , ("agora:mutateGovernorValidator", toRoledScript mutateGovVal') + , ("agora:alwaysSucceedsPolicy", toRoledScript alwaysSucceedsPolicy') ] , information = AgoraScriptInfo