diff --git a/haskell/Puzzles/Day8.hs b/haskell/Puzzles/Day8.hs index 89af924..85fc933 100644 --- a/haskell/Puzzles/Day8.hs +++ b/haskell/Puzzles/Day8.hs @@ -11,7 +11,9 @@ puzzle :: Puzzle puzzle = Puzzle { number = 8 - , parser = \isRealData -> (if isRealData then 1000 else 10,) <$> (V3 <$> decimal <* single ',' <*> decimal <* single ',' <*> decimal) `sepEndBy` newline + , parser = \isRealData -> + (if isRealData then 1000 else 10,) + <$> (V3 <$> decimal <* single ',' <*> decimal <* single ',' <*> decimal) `sepEndBy` newline , parts = [ uncurry \n -> TL.show