--- Writeup at https://work.njae.me.uk/2022/12/02/advent-of-code-2022-day-2/
+-- Writeup at https://work.njae.me.uk/2023/12/02/advent-of-code-2023-day-02/
import AoC
import Data.Text (Text)
colourP, redP, greenP, blueP :: Parser Colour
gamesP = gameP `sepBy` endOfLine
-gameP = ParsedGame <$> (("Game " *> decimal) <* ": ") <*> showingsP
+gameP = ParsedGame <$ "Game " <*> decimal <* ": " <*> showingsP
showingsP = showingP `sepBy` "; "
showingP = cubeP `sepBy` ", "
-cubeP = (flip Cube) <$> (decimal <* " ") <*> colourP
+cubeP = (flip Cube) <$> decimal <* " " <*> colourP
colourP = redP <|> greenP <|> blueP
redP = Red <$ "red"