[hs] Make cli fancier

hs/src/Aoc/Y2020/D01.hs

@@ -37,4 +37,4 @@ solver values = do
   putStrLn $ show y1 ++ " * " ++ show y2 ++ " * " ++ show y3 ++ " = " ++ show (y1 * y2 * y3)
 
 day :: Day
-day = dayParse "2020_01" parser solver
+day = dayParse parser solver

hs/src/Aoc/Y2020/D02.hs

@@ -42,4 +42,4 @@ solver ls = do
   print $ length $ filter validPositions ls
 
 day :: Day
-day = dayParse "2020_02" parser solver
+day = dayParse parser solver

hs/src/Aoc/Y2020/D03.hs

@@ -44,4 +44,4 @@ solver trees = do
   putStrLn $ "Product: " ++ show (oneOne * threeOne * fiveOne * sevenOne * oneTwo)
 
 day :: Day
-day = dayParse "2020_03" parser solver
+day = dayParse parser solver

hs/src/Aoc/Y2020/D04.hs

@@ -157,4 +157,4 @@ solver passports = do
   print $ length $ filter hasValidKeys passports
 
 day :: Day
-day = dayParse "2020_04" parser solver
+day = dayParse parser solver

hs/src/Aoc/Y2020/D05.hs

@@ -40,4 +40,4 @@ solver ps = do
   print $ mySeats $ Set.fromList ps
 
 day :: Day
-day = dayParse "2020_05" parser solver
+day = dayParse parser solver

hs/src/Aoc/Y2020/D06.hs

@@ -22,4 +22,4 @@ solver groups = do
   print $ sum $ map (Set.size . foldr1 Set.intersection . map Set.fromList) groups
 
 day :: Day
-day = dayParse "2020_06" parser solver
+day = dayParse parser solver