Jack/rcv-site
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

whoops, results were accidentally reversed

Browse source
This commit is contained in:
Jack Wines 2023-06-17 00:58:38 -07:00
parent 5c7bb9e2a3
commit 1a61d4aa3c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Main.hs
View file

@ -62,7 +62,7 @@ results pollId = do
Nothing -> fullPage "poll doesn't have any votes" Nothing -> fullPage "poll doesn't have any votes"
Just votesList -> do Just votesList -> do
let voteless = notVotedFor poll let voteless = notVotedFor poll
let results' = (reverse . IR.solve $ votesList) ++ noVotesAsBallot voteless let results' = (IR.solve $ votesList) ++ noVotesAsBallot voteless
fullPage $ do fullPage $ do
h2_ "results" h2_ "results"
toHtml $ T.append (T.pack . show . length . P.votes $ poll) " ballots submitted" toHtml $ T.append (T.pack . show . length . P.votes $ poll) " ballots submitted"