Reorganize imports

app/Main.hs

@@ -3,21 +3,19 @@
 module Main where
 
 import Lib
-import Print
-
-import qualified Days.D01 as D01
-import qualified Days.D02 as D02
-import qualified Days.D03 as D03
 
 import System.Environment (getArgs)
 
-solutions :: [(Int, Day, FilePath)]
-solutions =
-    [ (1, D01.day, "./data/01.in")
-    , (2, D02.day, "./data/02.in")
-    , (3, D03.day, "./data/03.in")
+paths :: [FilePath]
+paths =
+    [ "./data/01.in"
+    , "./data/02.in"
+    , "./data/03.in"
     ]
 
+solutions :: [(Int, Day, FilePath)]
+solutions = zip3 [1 ..] (map head days) paths
+
 runAll :: [(Int, Day, FilePath)] -> IO ()
 runAll = mapM_ (\(dayNum, day, path) -> run day path >>= printDR dayNum)