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

fix compilation errors :)

Browse source
This commit is contained in:
fanghr 2022-04-29 22:00:19 +08:00
parent f59cfc3f56
commit 2aa869b46c
No known key found for this signature in database
GPG key ID: 35CD9A71CD5D5870
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
agora-test/Spec/Sample/Shared.hs
View file

@ -34,6 +34,8 @@ module Spec.Sample.Shared (
import Agora.Governor ( import Agora.Governor (
Governor (Governor), Governor (Governor),
)
import Agora.Governor.Scripts (
governorPolicy, governorPolicy,
governorValidator, governorValidator,
) )
@ -61,6 +63,7 @@ import Plutus.V1.Ledger.Api (
CurrencySymbol, CurrencySymbol,
MintingPolicy (..), MintingPolicy (..),
PubKeyHash, PubKeyHash,
TxOutRef (TxOutRef),
) )
import Plutus.V1.Ledger.Scripts (Validator, ValidatorHash) import Plutus.V1.Ledger.Scripts (Validator, ValidatorHash)
import Plutus.V1.Ledger.Value qualified as Value import Plutus.V1.Ledger.Value qualified as Value
@ -88,7 +91,15 @@ stakeAddress :: Address
stakeAddress = Address (ScriptCredential stakeValidatorHash) Nothing stakeAddress = Address (ScriptCredential stakeValidatorHash) Nothing
governor :: Governor 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 :: MintingPolicy
govPolicy = mkMintingPolicy (governorPolicy governor) govPolicy = mkMintingPolicy (governorPolicy governor)