X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-20.git;a=blobdiff_plain;f=advent06%2Fsrc%2Fadvent06.hs;h=2f94908111d33f9136de9d6bdf87b94cf5e43467;hp=9e8050108bacf47f1bae570044f78b23cf68d7a3;hb=33ea1e47e48b789d631f543e48f37287f58ffc96;hpb=a391f550e2af9522e1c64d7695b4fa60257ca3a6;ds=sidebyside

diff --git a/advent06/src/advent06.hs b/advent06/src/advent06.hs
index 9e80501..2f94908 100644
--- a/advent06/src/advent06.hs
+++ b/advent06/src/advent06.hs
@@ -30,9 +30,9 @@ blankLines = skipMany1 endOfLine
 personP = S.fromList <$> many1 letter
 groupP = sepBy1 personP endOfLine
 
-groupsP = sepBy1 groupP blankLines
+groupsP = sepBy groupP blankLines
 
--- successfulParse :: Text -> [Passport]
+successfulParse :: Text -> [[S.Set Char]]
 successfulParse input = 
   case parseOnly groupsP input of
     Left  _err -> [] -- TIO.putStr $ T.pack $ parseErrorPretty err