Day 01

day01/Main.hs

@@ -0,0 +1,11 @@
+module Main where
+
+import Commons
+import Part1
+import Part2
+
+main = do doc <- parse
+          let part1Res = sum (Part1.getCalibrationValues doc)
+          putStrLn (show (part1Res))
+          let part2Res = sum (Part2.getCalibrationValues doc)
+          putStrLn (show (part2Res))