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

renamed shared sample

Browse source
This commit is contained in:
Seungheon Oh 2022-10-19 19:39:46 -05:00
parent 6a0cfcd6ce
commit 4f5504d1d1
8 changed files with 55 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

14
agora-specs/Sample/Governor/Mutate.hs
View file

@ -46,9 +46,9 @@ import PlutusLedgerApi.V2 (
import Sample.Shared (
agoraScripts,
authorityTokenSymbol,
govAssetClass,
govValidator,
govValidatorHash,
governorAssetClass,
governorValidator,
governorValidatorHash,
minAda,
)
import Test.Specification (SpecificationTree, testValidator)
@ -145,19 +145,19 @@ governorRedeemer = MutateGovernor
mkGovernorBuilder :: forall b. CombinableBuilder b => GovernorParameters -> b
mkGovernorBuilder ps =
let gst = Value.assetClassValue govAssetClass 1
let gst = Value.assetClassValue governorAssetClass 1
value = sortValue $ gst <> minAda
gstOutput =
if ps.stealGST
then pubKey $ head pubKeyHashes
else script govValidatorHash
else script governorValidatorHash
withGSTDatum =
maybe mempty withDatum $
mkGovernorOutputDatum ps.governorOutputDatumValidity
in mconcat
[ input $
mconcat
[ script govValidatorHash
[ script governorValidatorHash
, withDatum governorInputDatum
, withValue value
, withRef governorRef
@ -237,7 +237,7 @@ mkTestCase name pb (Validity forGov) =
testValidator
forGov
name
govValidator
governorValidator
governorInputDatum
governorRedeemer
(mkSpending mutate pb governorRef)