From e0c79b9edd73658280f5e997c2ed9854b15d561e Mon Sep 17 00:00:00 2001
From: shu <shu@lain.localdomain>
Date: Mon, 2 Dec 2019 09:23:25 +0100
Subject: [PATCH] use concatMap

---
 2019/day2/day2.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/2019/day2/day2.hs b/2019/day2/day2.hs
index 47fb15d..180912e 100644
--- a/2019/day2/day2.hs
+++ b/2019/day2/day2.hs
@@ -4,7 +4,7 @@ import Data.Foldable
 
 main = do
     content <- readFile "input"
-    let input = (map (map read . splitOn ",") (lines content)) !! 0
+    let input = concatMap (map read . splitOn ",") (lines content)
     let input2 = in_replace input 12 2
     print (day2a input2 (fromList input2) 0)
     print (day2b input)