{-# LANGUAGE LambdaCase #-}

module Main where

import Day1 qualified
import Day2 qualified
import System.Environment (getArgs)

main :: IO ()
main = do
  getArgs >>= \case
    ["day1"] -> Day1.run
    ["day2"] -> Day2.run
    args -> error $ "Invlaid args: " <> show args