Renamed GameInfoItem -> CubeCount

cdimitroulas · Dec 3, 2023 · 276192d · 276192d
1 parent 97a66ff
commit 276192d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Solutions/Day02.hs b/src/Solutions/Day02.hs
@@ -16,8 +16,8 @@ strToColour "blue" = Blue
 strToColour "green" = Green
 strToColour _ = error "invalid colour"
 
-type GameInfoItem = (Colour, Int)
-type GameInfo = [GameInfoItem]
+type CubeCount = (Colour, Int)
+type GameInfo = [CubeCount]
 type Game = (Int, [GameInfo])
 type Input = [Game]
 
@@ -33,7 +33,7 @@ inputParser = linesOf $ do
   gameInfo <- (cubeCountParser `P.sepBy` ", ") `P.sepBy` "; "
   return (read gameId, gameInfo)
 
-cubeCountParser :: Parser GameInfoItem
+cubeCountParser :: Parser CubeCount
 cubeCountParser = do
   count <- P.many1 P.digit
   P.space