Done day 7

[advent-of-code-20.git] / advent06 / src / advent06.hs

diff --git a/advent06/src/advent06.hs b/advent06/src/advent06.hs
index 9e8050108bacf47f1bae570044f78b23cf68d7a3..2f94908111d33f9136de9d6bdf87b94cf5e43467 100644 (file)
--- 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
 
 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
 successfulParse input = 
   case parseOnly groupsP input of
     Left  _err -> [] -- TIO.putStr $ T.pack $ parseErrorPretty err