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

Update PSE

Browse source
This commit is contained in:
Seungheon Oh 2022-11-22 17:47:29 -06:00
parent b23e23da11
commit 2969ef99c6
4 changed files with 17 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

2
agora-specs/Sample/Governor/Initialize.hs
View file

@ -121,7 +121,7 @@ scripts :: Map Text Script
scripts =
either
(error . show)
(view #scripts)
(fmap (view #script) . view #scripts)
( runLinker
linker
(agoraScripts deterministicTracingConfing)

2
agora-specs/Sample/Shared.hs
View file

@ -141,7 +141,7 @@ agoraScripts :: Map Text Script
agoraScripts =
either
(error . show)
(view #scripts)
(fmap (view #script) . view #scripts)
( runLinker
linker
(Bootstrap.agoraScripts deterministicTracingConfing)

24
agora/Agora/Linker.hs
View file

@ -13,7 +13,6 @@ import PlutusLedgerApi.V1 (Address, CurrencySymbol, TxOutRef, ValidatorHash)
import Ply (
ScriptRole (MintingPolicyRole, ValidatorRole),
toMintingPolicy,
toScript,
toValidator,
(#),
)
@ -22,6 +21,7 @@ import ScriptExport.ScriptInfo (
ScriptExport (..),
fetchTS,
getParam,
toRoledScript,
)
import Prelude hiding ((#))
@ -108,17 +108,17 @@ linker = do
ScriptExport
{ scripts =
fromList
[ ("agora:governorPolicy", toScript govPol')
, ("agora:governorValidator", toScript govVal')
, ("agora:stakePolicy", toScript stakPol')
, ("agora:stakeValidator", toScript stakVal')
, ("agora:proposalPolicy", toScript propPol')
, ("agora:proposalValidator", toScript propVal')
, ("agora:treasuryValidator", toScript treaVal')
, ("agora:authorityTokenPolicy", toScript atPol')
, ("agora:noOpValidator", toScript noOpVal')
, ("agora:treasuryWithdrawalValidator", toScript treaWithdrawalVal')
, ("agora:mutateGovernorValidator", toScript mutateGovVal')
[ ("agora:governorPolicy", toRoledScript govPol')
, ("agora:governorValidator", toRoledScript govVal')
, ("agora:stakePolicy", toRoledScript stakPol')
, ("agora:stakeValidator", toRoledScript stakVal')
, ("agora:proposalPolicy", toRoledScript propPol')
, ("agora:proposalValidator", toRoledScript propVal')
, ("agora:treasuryValidator", toRoledScript treaVal')
, ("agora:authorityTokenPolicy", toRoledScript atPol')
, ("agora:noOpValidator", toRoledScript noOpVal')
, ("agora:treasuryWithdrawalValidator", toRoledScript treaWithdrawalVal')
, ("agora:mutateGovernorValidator", toRoledScript mutateGovVal')
]
, information =
AgoraScriptInfo

6
flake.lock generated
View file

@ -743,11 +743,11 @@
]
},
"locked": {
"lastModified": 1666051771,
"narHash": "sha256-gWNP538VYPGSABTMiditBSfyNH1mOc4mekINTzYz5Hk=",
"lastModified": 1667498866,
"narHash": "sha256-rzP1HxKacT7hz4YzJ4LTxh+TEZyzrtCgPRbXzJHSv28=",
"owner": "Liqwid-Labs",
"repo": "liqwid-script-export",
"rev": "17e8aad4bcea21478ed22e08b0ccbc4a65079d7a",
"rev": "fd8bd015741137ad206c8c8bbca0428da5a13504",
"type": "github"
},
"original": {