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/Proposal/Advance.hs
View file

@ -108,10 +108,10 @@ import Sample.Proposal.Shared (
import Sample.Shared (
authorityTokenPolicy,
authorityTokenSymbol,
govAssetClass,
govValidator,
govValidatorHash,
governor,
governorAssetClass,
governorValidator,
governorValidatorHash,
minAda,
proposalPolicySymbol,
proposalValidator,
@ -432,19 +432,19 @@ governorRef = TxOutRef governorTxRef 2
-}
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
in mconcat
[ input $
mconcat
[ script govValidatorHash
[ script governorValidatorHash
, withValue value
, withRef governorRef
, withDatum governorInputDatum
]
, output $
mconcat
[ script govValidatorHash
[ script governorValidatorHash
, withValue value
, withRef governorRef
, withDatum (mkGovernorOutputDatum ps)
@ -542,7 +542,7 @@ mkTestTree name pb val =
testValidator
(fromJust val.forGovernorValidator)
"governor"
govValidator
governorValidator
governorInputDatum
governorRedeemer
(spend governorRef)

14
agora-specs/Sample/Proposal/Create.hs
View file

@ -72,10 +72,10 @@ import PlutusLedgerApi.V2 (
import Sample.Proposal.Shared (stakeTxRef)
import Sample.Shared (
fromDiscrete,
govAssetClass,
govValidator,
govValidatorHash,
governor,
governorAssetClass,
governorValidator,
governorValidatorHash,
minAda,
proposalPolicy,
proposalPolicySymbol,
@ -284,7 +284,7 @@ createProposal ps = builder
where
pst = Value.singleton proposalPolicySymbol "" 1
sst = Value.assetClassValue stakeAssetClass 1
gst = Value.assetClassValue govAssetClass 1
gst = Value.assetClassValue governorAssetClass 1
---
@ -323,14 +323,14 @@ createProposal ps = builder
timeRange $ mkTimeRange ps
, input $
mconcat
[ script govValidatorHash
[ script governorValidatorHash
, withValue governorValue
, withDatum governorInputDatum
, withRef governorRef
]
, output $
mconcat
[ script govValidatorHash
[ script governorValidatorHash
, withValue governorValue
, withDatum (mkGovernorOutputDatum ps)
]
@ -466,7 +466,7 @@ mkTestTree
testValidator
validForGovernorValidator
"governor"
govValidator
governorValidator
governorInputDatum
governorRedeemer
(spend governorRef)