day4, cosmetical

2021-12-10 15:25:18 +01:00 · 2021-12-10 15:25:18 +01:00 · 850ff2e797
commit 850ff2e797
parent 6e0f63943f
1 changed files with 1 additions and 2 deletions
--- a/2021/day04/day04.hs
+++ b/2021/day04/day04.hs
@ -12,8 +12,7 @@ main = do
  (i:is) <- splitOn "\n\n" <$> readFile "input"
  let nums = read $ '[' : i ++ "]" :: [Int]
  let boards =
-        map (map (flip zip (repeat False) . map read . words) . lines) is :: [[[( Int
-                                                                                , Bool)]]]
+        map (map (flip zip (repeat False) . map read . words) . lines) is :: [Board]
  let (newBoards, newNums) = bingo (boards, nums)
  print $ countScore newNums $ getWinBoard newBoards
  let ([lb], ln) = loseBoard (newBoards, newNums)