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)