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