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

ensure votes changed in VotingReady while calling UnlockStakes

Browse source
This commit is contained in:
Hongrui Fang 2022-11-10 18:56:38 +08:00
parent 431092fb1c
commit 0d0e122bd2
1 changed files with 37 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -549,6 +549,7 @@ proposalValidator =
PUnlockStake _ -> spendStakes $ \sctxF -> do
let expectedVotes =
pdata $
pfoldl
# plam
( \votes stake -> unTermCont $ do
@ -611,14 +612,19 @@ proposalValidator =
.& #thresholds
.= proposalInputDatumF.thresholds
.& #votes
.= pdata expectedVotes
.= expectedVotes
.& #timingConfig
.= proposalInputDatumF.timingConfig
.& #startingTime
.= proposalInputDatumF.startingTime
)
in ptraceIfFalse "Update votes" $
in foldl1
(#&&)
[ ptraceIfFalse "Votes changed" $
pnot #$ expectedVotes #== proposalInputDatumF.votes
, ptraceIfFalse "Proposal update correct" $
expectedProposalOut #== proposalOutputDatum
]
)
-- No change to the proposal is allowed.
( ptraceIfFalse "Proposal unchanged" $