Fix linker and tests

agora-specs/Property/Governor.hs

@@ -221,7 +221,7 @@ mkPolicyScript ctx = mustCompile (go # pconstant ctx)
     go = loudEval $
       plam $ \sc ->
         governorPolicy
-          # pconstant (view #gstOutRef governor)
+          # pdata (pconstant (view #gstOutRef governor))
           # pforgetData (pconstantData ())
           # sc
 

agora/Agora/Linker.hs

@@ -12,6 +12,7 @@ import Plutarch.Extra.AssetClass (AssetClass (AssetClass))
 import Plutarch.Extra.ScriptContext (scriptHashToTokenName)
 import PlutusLedgerApi.V2 (CurrencySymbol (CurrencySymbol), ScriptHash, TxOutRef, getScriptHash)
 import Ply (
+  AsData (AsData),
   ScriptRole (MintingPolicyRole, ValidatorRole),
   (#),
  )
@@ -48,122 +49,122 @@ linker = do
   govPol <-
     fetchTS
       @MintingPolicyRole
-      @'[TxOutRef]
+      @'[AsData TxOutRef]
       "agora:governorPolicy"
   govVal <-
     fetchTS
       @ValidatorRole
-      @'[ ScriptHash
+      @'[ AsData ScriptHash
-        , Tagged StakeSTTag AssetClass
+        , AsData (Tagged StakeSTTag AssetClass)
-        , Tagged GovernorSTTag CurrencySymbol
+        , AsData (Tagged GovernorSTTag CurrencySymbol)
-        , Tagged ProposalSTTag CurrencySymbol
+        , AsData (Tagged ProposalSTTag CurrencySymbol)
-        , Tagged AuthorityTokenTag CurrencySymbol
+        , AsData (Tagged AuthorityTokenTag CurrencySymbol)
         ]
       "agora:governorValidator"
   stkPol <-
     fetchTS
       @MintingPolicyRole
-      @'[Tagged GTTag AssetClass]
+      @'[AsData (Tagged GTTag AssetClass)]
       "agora:stakePolicy"
   stkVal <-
     fetchTS
       @ValidatorRole
-      @'[ Tagged StakeSTTag CurrencySymbol
+      @'[ AsData (Tagged StakeSTTag CurrencySymbol)
-        , Tagged ProposalSTTag AssetClass
+        , AsData (Tagged ProposalSTTag AssetClass)
-        , Tagged GTTag AssetClass
+        , AsData (Tagged GTTag AssetClass)
         ]
       "agora:stakeValidator"
   prpPol <-
     fetchTS @MintingPolicyRole
-      @'[Tagged GovernorSTTag AssetClass]
+      @'[AsData (Tagged GovernorSTTag AssetClass)]
       "agora:proposalPolicy"
   prpVal <-
     fetchTS
       @ValidatorRole
-      @'[ Tagged StakeSTTag AssetClass
+      @'[ AsData (Tagged StakeSTTag AssetClass)
-        , Tagged GovernorSTTag CurrencySymbol
+        , AsData (Tagged GovernorSTTag CurrencySymbol)
-        , Tagged ProposalSTTag CurrencySymbol
+        , AsData (Tagged ProposalSTTag CurrencySymbol)
-        , Integer
+        , AsData Integer
         ]
       "agora:proposalValidator"
   treVal <-
     fetchTS
       @ValidatorRole
-      @'[Tagged AuthorityTokenTag CurrencySymbol]
+      @'[AsData (Tagged AuthorityTokenTag CurrencySymbol)]
       "agora:treasuryValidator"
   atkPol <-
     fetchTS
       @MintingPolicyRole
-      @'[Tagged GovernorSTTag AssetClass]
+      @'[AsData (Tagged GovernorSTTag AssetClass)]
       "agora:authorityTokenPolicy"
   noOpVal <-
     fetchTS
       @ValidatorRole
-      @'[Tagged AuthorityTokenTag CurrencySymbol]
+      @'[AsData (Tagged AuthorityTokenTag CurrencySymbol)]
       "agora:noOpValidator"
   treaWithdrawalVal <-
     fetchTS
       @ValidatorRole
-      @'[Tagged AuthorityTokenTag CurrencySymbol]
+      @'[AsData (Tagged AuthorityTokenTag CurrencySymbol)]
       "agora:treasuryWithdrawalValidator"
   mutateGovVal <-
     fetchTS
       @ValidatorRole
-      @'[ ScriptHash
+      @'[ AsData ScriptHash
-        , Tagged GovernorSTTag CurrencySymbol
+        , AsData (Tagged GovernorSTTag CurrencySymbol)
-        , Tagged AuthorityTokenTag CurrencySymbol
+        , AsData (Tagged AuthorityTokenTag CurrencySymbol)
         ]
       "agora:mutateGovernorValidator"
 
   governor <- getParam
 
-  let govPol' = govPol # governor.gstOutRef
+  let govPol' = govPol # AsData governor.gstOutRef
       govVal' =
         govVal
-          # propValHash
+          # AsData propValHash
-          # Tagged sstAssetClass
+          # AsData (Tagged sstAssetClass)
-          # Tagged gstSymbol
+          # AsData (Tagged gstSymbol)
-          # Tagged pstSymbol
+          # AsData (Tagged pstSymbol)
-          # Tagged atSymbol
+          # AsData (Tagged atSymbol)
       gstSymbol = CurrencySymbol . getScriptHash . scriptHash $ toScript govPol'
       gstAssetClass =
         AssetClass gstSymbol ""
       govValHash = scriptHash $ toScript govVal'
 
-      atPol' = atkPol # Tagged gstAssetClass
+      atPol' = atkPol # AsData (Tagged gstAssetClass)
       atSymbol = CurrencySymbol . getScriptHash . scriptHash $ toScript atPol'
 
-      propPol' = prpPol # Tagged gstAssetClass
+      propPol' = prpPol # AsData (Tagged gstAssetClass)
       propVal' =
         prpVal
-          # Tagged sstAssetClass
+          # AsData (Tagged sstAssetClass)
-          # Tagged gstSymbol
+          # AsData (Tagged gstSymbol)
-          # Tagged pstSymbol
+          # AsData (Tagged pstSymbol)
-          # governor.maximumCosigners
+          # AsData governor.maximumCosigners
       propValHash = scriptHash $ toScript propVal'
       pstSymbol = CurrencySymbol . getScriptHash . scriptHash $ toScript propPol'
       pstAssetClass = AssetClass pstSymbol ""
 
-      stakPol' = stkPol # governor.gtClassRef
+      stakPol' = stkPol # AsData governor.gtClassRef
       stakVal' =
         stkVal
-          # Tagged sstSymbol
+          # AsData (Tagged sstSymbol)
-          # Tagged pstAssetClass
+          # AsData (Tagged pstAssetClass)
-          # governor.gtClassRef
+          # AsData governor.gtClassRef
       sstSymbol = CurrencySymbol . getScriptHash . scriptHash $ toScript stakPol'
       stakValTokenName =
         scriptHashToTokenName $ scriptHash $ toScript stakVal'
       sstAssetClass = AssetClass sstSymbol stakValTokenName
 
-      treaVal' = treVal # Tagged atSymbol
+      treaVal' = treVal # AsData (Tagged atSymbol)
 
-      noOpVal' = noOpVal # Tagged atSymbol
+      noOpVal' = noOpVal # AsData (Tagged atSymbol)
-      treaWithdrawalVal' = treaWithdrawalVal # Tagged atSymbol
+      treaWithdrawalVal' = treaWithdrawalVal # AsData (Tagged atSymbol)
       mutateGovVal' =
         mutateGovVal
-          # govValHash
+          # AsData govValHash
-          # Tagged gstSymbol
+          # AsData (Tagged gstSymbol)
-          # Tagged atSymbol
+          # AsData (Tagged atSymbol)
 
   return $
     ScriptExport