Merge pull request #211 from Liqwid-Labs/seungheonoh/updatepse

Update PSE

agora-specs/Sample/Governor/Initialize.hs

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

agora-specs/Sample/Shared.hs

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

agora/Agora/Linker.hs

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

flake.lock

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