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

ensure the new proposal lock is placed on the stake

Browse source
This commit is contained in:
fanghr 2022-05-19 13:58:12 +08:00
parent ce09d05dff
commit 97b3d6f023
2 changed files with 29 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
agora/Agora/Proposal/Scripts.hs
View file

@ -271,8 +271,8 @@ proposalValidator proposal =
tcassert "Invalid output proposal" $ proposalOut #== expectedProposalOut
-- We validate the output stake datum here as well: We need the vote option
-- to create a proper 'ProposalLock'. However the vote option is encoded
-- in the proposal redeemer, which is invisible for the stake validator.
-- to create a valid 'ProposalLock', however the vote option is encoded
-- in the proposal redeemer, which is invisible for the stake validator.
let stakeOutput =
mustBePJust # "Stake output not found"
@ -292,6 +292,7 @@ proposalValidator proposal =
( #vote .= pdata voteFor
.& #proposalTag .= proposalF.proposalId
)
-- Prepend the new lock to existing locks
expectedProposalLocks =
pcons
# pdata newProposalLock