From 850ff2e797dbe991ffaa894abc61319d69169a96 Mon Sep 17 00:00:00 2001
From: Gattix <gattix@cock.li>
Date: Fri, 10 Dec 2021 15:25:18 +0100
Subject: [PATCH] day4, cosmetical

---
 2021/day04/day04.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/2021/day04/day04.hs b/2021/day04/day04.hs
index 18b6b9a..c370615 100644
--- 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)