From 2aa869b46cbe85751c070c2ffd3e8b3aca2e8fb7 Mon Sep 17 00:00:00 2001 From: fanghr Date: Fri, 29 Apr 2022 22:00:19 +0800 Subject: [PATCH] fix compilation errors :) --- agora-test/Spec/Sample/Shared.hs | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/agora-test/Spec/Sample/Shared.hs b/agora-test/Spec/Sample/Shared.hs index bd4957f..24b2e05 100644 --- a/agora-test/Spec/Sample/Shared.hs +++ b/agora-test/Spec/Sample/Shared.hs @@ -34,6 +34,8 @@ module Spec.Sample.Shared ( import Agora.Governor ( Governor (Governor), + ) +import Agora.Governor.Scripts ( governorPolicy, governorValidator, ) @@ -61,6 +63,7 @@ import Plutus.V1.Ledger.Api ( CurrencySymbol, MintingPolicy (..), PubKeyHash, + TxOutRef (TxOutRef), ) import Plutus.V1.Ledger.Scripts (Validator, ValidatorHash) import Plutus.V1.Ledger.Value qualified as Value @@ -88,7 +91,15 @@ stakeAddress :: Address stakeAddress = Address (ScriptCredential stakeValidatorHash) Nothing governor :: Governor -governor = Governor +governor = Governor oref gt mc + where + oref = TxOutRef "f28cd7145c24e66fd5bcd2796837aeb19a48a2656e7833c88c62a2d0450bd00d" 0 + gt = + Tagged $ + Value.assetClass + "da8c30857834c6ae7203935b89278c532b3995245295456f993e1d24" + "LQ" + mc = 6 govPolicy :: MintingPolicy govPolicy = mkMintingPolicy (governorPolicy governor)