From 277c4109b8c10a6070fe00f459be2aca2a1dba63 Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Mon, 2 Nov 2020 22:43:53 +0000
Subject: [PATCH] [hs] Clean up 2019_01

---
 hs/.gitignore           | 5 ++++-
 hs/src/Aoc/Y2019/A01.hs | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/hs/.gitignore b/hs/.gitignore
index 545d24c..3c5e748 100644
--- a/hs/.gitignore
+++ b/hs/.gitignore
@@ -1,3 +1,6 @@
 .stack-work/
 hs.cabal
-*~
\ No newline at end of file
+*~
+
+# Input files
+/tmp/
\ No newline at end of file
diff --git a/hs/src/Aoc/Y2019/A01.hs b/hs/src/Aoc/Y2019/A01.hs
index f68440a..3642222 100644
--- a/hs/src/Aoc/Y2019/A01.hs
+++ b/hs/src/Aoc/Y2019/A01.hs
@@ -10,7 +10,7 @@ iteratedFuel = sum . takeWhile (> 0) . tail . iterate fuel
 
 solve201901 :: FilePath -> IO ()
 solve201901 f = do
-  values <- (map read . lines) <$> readFile f
+  values <- map read . lines <$> readFile f
 
   putStr "Total fuel: "
   print $ sum $ map fuel values