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