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

use liqwid-nix 2.0

Browse source
This commit is contained in:
Emily Martins 2022-11-30 01:26:47 +01:00
parent b6ab3762ce
commit 7e628328da
35 changed files with 458 additions and 564 deletions
Download patch file Download diff file Expand all files Collapse all files

12
agora-specs/Sample/Proposal/PrivilegeEscalate.hs
View file

@ -49,11 +49,11 @@ import Sample.Proposal.Shared (proposalTxRef, stakeTxRef)
import Sample.Shared (
minAda,
proposalAssetClass,
proposalScriptHash,
proposalValidator,
proposalValidatorHash,
stakeAssetClass,
stakeScriptHash,
stakeValidator,
stakeValidatorHash,
)
import Test.Specification (SpecificationTree, group, testValidator)
import Test.Util (CombinableBuilder, closedBoundedInterval, mkSpending, pubKeyHashes)
@ -166,7 +166,7 @@ privilegeEscalate op =
mconcat @b
[ input $
mconcat
[ script stakeValidatorHash
[ script stakeScriptHash
, withDatum stakeInput
, withValue stakeValue
, withRef $ mkStakeRef index
@ -174,7 +174,7 @@ privilegeEscalate op =
]
, output $
mconcat
[ script stakeValidatorHash
[ script stakeScriptHash
, withDatum stakeOutput
, withValue stakeValue
]
@ -196,7 +196,7 @@ privilegeEscalate op =
mconcat @b
[ input $
mconcat
[ script proposalValidatorHash
[ script proposalScriptHash
, withDatum proposalInput
, withRedeemer $ mkProposalRedeemer op
, withValue proposalValue
@ -204,7 +204,7 @@ privilegeEscalate op =
]
, output $
mconcat
[ script proposalValidatorHash
[ script proposalScriptHash
, withDatum proposalOutput
, withValue proposalValue
]