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

fixed empty ballot problem

Browse source
This commit is contained in:
Jack Wines 2023-06-16 22:12:21 -07:00
parent 1683e8bf33
commit 59b849e7b0
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

@ -120,7 +120,7 @@ vote pollId ballot = do
"success! Here's the " "success! Here's 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 (== "") . B.options $ ballot ballot' = B.Ballot . filter (not . T.null) . B.options $ ballot
server :: ServerT A.RCVAPI AppM server :: ServerT A.RCVAPI AppM
server = createPage server = createPage