Day 2

app/Main.hs

@@ -6,8 +6,19 @@ import Lib
 import Print
 
 import qualified Days.D01 as D01
+import qualified Days.D02 as D02
+
 import System.Environment (getArgs)
 
+solutions :: [(Int, Day, FilePath)]
+solutions =
+    [ (1, D01.day, "./data/01.in")
+    , (2, D02.day, "./data/02.in")
+    ]
+
+runAll :: [(Int, Day, FilePath)] -> IO ()
+runAll = mapM_ (\(dayNum, day, path) -> run day path >>= printDR dayNum)
+
 header :: IO ()
 header = putStrLn "[ Day ]------(1)-----+------(2)----"
 
@@ -17,4 +28,5 @@ usage = putStrLn "./Main"
 main :: IO ()
 main =
     getArgs >>= \case
-        _ -> header >> run D01.day "data/01.in" >>= printDR 1
+        ["all"] -> header >> runAll solutions
+        _ -> header >> runAll [last (solutions)]