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

here's -> here are the results

Browse source
This commit is contained in:
Jack Wines 2023-06-24 21:40:55 -07:00
parent 357c6fb48d
commit dfef7d4935
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

@ -109,7 +109,7 @@ vote pollId ballot = do
db <- Rd.asks db db <- Rd.asks db
liftIO $ Ac.update db (DB.PostBallot pollId ballot') liftIO $ Ac.update db (DB.PostBallot pollId ballot')
pure $ with div_ [id_ "resultLink"] $ do pure $ with div_ [id_ "resultLink"] $ do
"success! Here's the " "success! Here are the "
with a_ [href_ (toPollIdLink pollId `T.append` "/results")] "results" with a_ [href_ (toPollIdLink pollId `T.append` "/results")] "results"
where where
ballot' = B.Ballot . filter (not . T.null) . B.options $ ballot ballot' = B.Ballot . filter (not . T.null) . B.options $ ballot