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

countingVote,create,startVoting to execute,create,vote

Browse source 
Let's embrace consistancy between Haskell types and Plutarch types.
This commit is contained in:
Seungheon Oh 2022-06-16 13:28:55 -05:00
parent 014ef050d2
commit 8e9dd16613
7 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

6
agora-specs/Sample/Proposal.hs
View file

@ -532,7 +532,7 @@ advanceProposalSuccess params =
outcome0WinningVotes =
ProposalVotes $
updateMap
(\_ -> Just $ untag (def :: ProposalThresholds).countVoting + 1)
(\_ -> Just $ untag (def :: ProposalThresholds).vote + 1)
(ResultTag 0)
emptyVotes'
@ -611,7 +611,7 @@ advanceProposalFailureTimeout params =
outcome0WinningVotes =
ProposalVotes $
updateMap
(\_ -> Just $ untag (def :: ProposalThresholds).countVoting + 1)
(\_ -> Just $ untag (def :: ProposalThresholds).vote + 1)
(ResultTag 0)
emptyVotes'
@ -720,7 +720,7 @@ advanceFinishedPropsoal =
outcome0WinningVotes =
ProposalVotes $
AssocMap.fromList
[ (ResultTag 0, untag (def :: ProposalThresholds).countVoting + 1)
[ (ResultTag 0, untag (def :: ProposalThresholds).vote + 1)
, (ResultTag 1, 0)
]