From 59b849e7b07ac03dd519076a1216565bb91c59b7 Mon Sep 17 00:00:00 2001
From: Jack Wines <jack@winesj.com>
Date: Fri, 16 Jun 2023 22:12:21 -0700
Subject: [PATCH] fixed empty ballot problem

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index 4efdb0c..eb235ca 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -120,7 +120,7 @@ vote pollId ballot = do
     "success! Here's the "
     with a_ [href_ (toPollIdLink pollId `T.append` "/results")] "results"
   where
-    ballot' = B.Ballot . filter (== "") . B.options $ ballot
+    ballot' = B.Ballot . filter (not . T.null) . B.options $ ballot
 
 server :: ServerT A.RCVAPI AppM
 server = createPage