1 files changed, 1 insertions, 3 deletions
diff --git a/7-1.hs b/7-1.hs
index 81a6ba5..051ed9f 100644
--- a/7-1.hs
+++ b/7-1.hs
@@ -17,6 +17,4 @@ result xs = sum . map fst . filter snd
   $ zip (map fst xs) (map (uncurry check) xs)
 
 main :: IO ()
-main = do
-  ls <- lines <$> getContents
-  print . result . map parseLine $ ls
+main = getContents >>=  print . result . map parseLine . lines