1 files changed, 1 insertions, 3 deletions
diff --git a/7-2.hs b/7-2.hs
index f191196..63a2df5 100644
--- a/7-2.hs
+++ b/7-2.hs
@@ -20,6 +20,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