Cleanup

src/Day1.hs

@@ -14,7 +14,6 @@ day1 = do
   putStrLn ("Highest calorie count = " ++ calorieCount)
   caloriesOfTop3Elves <- day1_2
   putStrLn ("Calories of top 3 elves = " ++ caloriesOfTop3Elves)
-  putStrLn "-----------"
 
 
 day1_1 :: IO String

src/Lib.hs

@@ -2,8 +2,22 @@ module Lib
     ( someFunc
     ) where
       
-import Day5      
+import Day1
+import Day2
+import Day3
+import Day4
+import Day5
 
 someFunc :: IO ()
-someFunc = day5
+someFunc = do
+  day1
+  putStrLn "-----------"
+  day2
+  putStrLn "-----------"
+  day3
+  putStrLn "-----------"
+  day4
+  putStrLn "-----------"
+  day5
+