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

add alwaysSucceedsPolicy back in

Browse source
This commit is contained in:
Emily Martins 2023-01-03 15:02:26 +01:00
parent 6d516e8076
commit 06632f0e57
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
agora/Agora/Bootstrap.hs
View file

@ -17,6 +17,7 @@ import Agora.Treasury (treasuryValidator)
import Data.Map (fromList) import Data.Map (fromList)
import Data.Text (Text, unpack) import Data.Text (Text, unpack)
import Plutarch (Config) import Plutarch (Config)
import Plutarch.Api.V2 (PMintingPolicy)
import Ply (TypedScriptEnvelope) import Ply (TypedScriptEnvelope)
import Ply.Plutarch.TypedWriter (TypedWriter, mkEnvelope) import Ply.Plutarch.TypedWriter (TypedWriter, mkEnvelope)
import ScriptExport.ScriptInfo (RawScriptExport (..)) import ScriptExport.ScriptInfo (RawScriptExport (..))
@ -41,6 +42,10 @@ agoraScripts conf =
, envelope "agora:noOpValidator" noOpValidator , envelope "agora:noOpValidator" noOpValidator
, envelope "agora:treasuryWithdrawalValidator" treasuryWithdrawalValidator , envelope "agora:treasuryWithdrawalValidator" treasuryWithdrawalValidator
, envelope "agora:mutateGovernorValidator" mutateGovernorValidator , envelope "agora:mutateGovernorValidator" mutateGovernorValidator
, -- NOTE(Emily, Jan 3rd 2023): Adding this in here because it's useful for testnet GT.
-- In reality, it shouldn't be used by anyone on mainnet, but removing it is not
-- productive for off-chain testing.
envelope @PMintingPolicy "agora:alwaysSucceedsPolicy" $ plam $ \_ _ -> popaque $ pcon PUnit
] ]
where where
envelope :: envelope ::