From 81819a26c3bab4d5a976a05341401f285a07fd95 Mon Sep 17 00:00:00 2001 From: Joscha Date: Sun, 6 Dec 2020 11:38:52 +0000 Subject: [PATCH] [hs] Clean up 2020_06 --- hs/src/Aoc/Y2020/D06.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hs/src/Aoc/Y2020/D06.hs b/hs/src/Aoc/Y2020/D06.hs index 5c5bb61..6345a88 100644 --- a/hs/src/Aoc/Y2020/D06.hs +++ b/hs/src/Aoc/Y2020/D06.hs @@ -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