2023-12-01 08:19:49 +00:00
|
|
|
{-# LANGUAGE LambdaCase #-}
|
2023-12-02 08:22:52 +00:00
|
|
|
|
2023-12-01 08:19:49 +00:00
|
|
|
module Main where
|
|
|
|
|
|
2023-12-02 08:22:52 +00:00
|
|
|
import Day1 qualified
|
|
|
|
|
import Day2 qualified
|
2023-12-01 08:19:49 +00:00
|
|
|
import System.Environment (getArgs)
|
2023-12-03 20:24:32 +00:00
|
|
|
import qualified Day3
|
2023-12-04 08:29:19 +00:00
|
|
|
import qualified Day4
|
2023-12-08 22:15:30 +00:00
|
|
|
import qualified Day5
|
2023-12-01 08:19:49 +00:00
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
|
|
|
|
getArgs >>= \case
|
|
|
|
|
["day1"] -> Day1.run
|
2023-12-02 08:22:52 +00:00
|
|
|
["day2"] -> Day2.run
|
2023-12-03 20:24:32 +00:00
|
|
|
["day3"] -> Day3.run
|
2023-12-04 08:29:19 +00:00
|
|
|
["day4"] -> Day4.run
|
2023-12-08 22:15:30 +00:00
|
|
|
["day5"] -> Day5.run
|
2023-12-01 08:19:49 +00:00
|
|
|
args -> error $ "Invlaid args: " <> show args
|
