[hs] Clean up 2020_06

This commit is contained in:
Joscha 2020-12-06 11:38:52 +00:00
parent dddc5ec451
commit 81819a26c3

View file

@ -10,7 +10,7 @@ import Aoc.Parse
type Group = [String]
parser :: Parser [Group]
parser = sepBy (endBy1 (some lowerChar) newline) newline
parser = (some lowerChar `endBy1` newline) `sepBy` newline
solver :: [Group] -> IO ()
solver groups = do