12 lines
225 B
Haskell
12 lines
225 B
Haskell
|
{-# LANGUAGE LambdaCase #-}
|
||
|
module Main where
|
||
|
|
||
|
import qualified Day1
|
||
|
import System.Environment (getArgs)
|
||
|
|
||
|
main :: IO ()
|
||
|
main = do
|
||
|
getArgs >>= \case
|
||
|
["day1"] -> Day1.run
|
||
|
args -> error $ "Invlaid args: " <> show args
|