From d4b9090839ac623868fa894c55e09d85559c633c Mon Sep 17 00:00:00 2001
From: Jack Wines <jack@winesj.com>
Date: Thu, 6 Jul 2023 19:55:35 -0700
Subject: [PATCH] removed empty names from options list before solve

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

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"