[hs] Switch to new day system

hs/src/Aoc/Y2019.hs

@@ -1,13 +1,8 @@
 module Aoc.Y2019
-  ( solve201901
-  , solve201902
-  , solve201903
-  , solve201904
-  , solve201905
+  ( days
   ) where
 
-import Aoc.Y2019.A01
-import Aoc.Y2019.A02
-import Aoc.Y2019.A03
-import Aoc.Y2019.A04
-import Aoc.Y2019.A05
+import           Aoc.Day
+
+days :: [Day]
+days = []

hs/src/Aoc/Y2020.hs

@@ -1,5 +1,11 @@
 module Aoc.Y2020
-  ( solve202001
+  ( days
   ) where
 
-import Aoc.Y2020.A01
+import           Aoc.Day
+import qualified Aoc.Y2020.D01 as D01
+
+days :: [Day]
+days =
+  [ D01.day
+  ]

hs/src/Aoc/Y2020/D01.hs

@@ -1,8 +1,10 @@
-module Aoc.Y2020.A01
-  ( solve202001
+module Aoc.Y2020.D01
+  ( day
   ) where
 
-import Control.Monad
+import           Control.Monad
+
+import           Aoc.Day
 
 findPair :: [Integer] -> (Integer, Integer)
 findPair l = head $ do
@@ -30,3 +32,6 @@ solve202001 f = do
   let (y1, y2, y3) = findTriple values
   putStrLn ">> Part 2"
   putStrLn $ show y1 ++ " * " ++ show y2 ++ " * " ++ show y3 ++ " = " ++ show (y1 * y2 * y3)
+
+day :: Day
+day = dayFile "2020_01" solve202001