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

add a sample for GST minting policy

Browse source
This commit is contained in:
fanghr 2022-05-04 12:57:25 +08:00
parent 27e3033b3b
commit 0651c19ca6
2 changed files with 86 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -29,6 +29,7 @@ module Spec.Sample.Shared (
govAssetClass,
govValidatorAddress,
govValidatorHash,
gstUTXORef,
-- ** Proposal
defaultProposalThresholds,
@ -103,11 +104,13 @@ stakeValidatorHash = stakeValidatorHashFromGovernor governor
stakeAddress :: Address
stakeAddress = Address (ScriptCredential stakeValidatorHash) Nothing
gstUTXORef :: TxOutRef
gstUTXORef = TxOutRef "f28cd7145c24e66fd5bcd2796837aeb19a48a2656e7833c88c62a2d0450bd00d" 0
governor :: Governor
governor = Governor oref gt mc
where
oref =
TxOutRef "f28cd7145c24e66fd5bcd2796837aeb19a48a2656e7833c88c62a2d0450bd00d" 0
oref = gstUTXORef
gt =
Tagged $
Value.assetClass