advent-of-code-2023/haskell/app/Main.hs

15 lines
273 B
Haskell

{-# 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