diff --git a/src/Main.hs b/src/Main.hs
index 59a2403..560d933 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -55,7 +55,7 @@ results pollId = do
   case toNonEmptyList . P.votes $ poll of
     Nothing -> fullPage "poll doesn't have any votes"
     Just votesList -> do
-      let results' = IR.solve (LN.toList . P.options . P.createInfo $ poll) votesList
+      let results' = IR.solve (filter (not . T.null) . LN.toList . P.options . P.createInfo $ poll) (votesList)
       fullPage $ do
         h2_ "results"
         toHtml $ T.append (T.pack . show . length . P.votes $ poll) " ballots submitted"