diff --git a/src/Main.hs b/src/Main.hs
index 8e5b3a2..d4b41f5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -74,7 +74,7 @@ results pollId = do
     noVotesAsBallot notVotedFor' = if S.null notVotedFor' then [] else [notVotedFor']
 
     toNonEmptyList :: [B.Ballot] -> Maybe (LN.NonEmpty (LN.NonEmpty T.Text))
-    toNonEmptyList = LN.nonEmpty . My.mapMaybe (LN.nonEmpty . B.options)
+    toNonEmptyList = LN.nonEmpty . My.mapMaybe (LN.nonEmpty . filter (not . T.null) . B.options)
 
     nthPlaceFor :: S.Set T.Text -> L.Html () -> L.Html ()
     nthPlaceFor options place = do