mirror of
https://github.com/mx42/adventofcode.git
synced 2026-01-14 13:59:51 +01:00
21 lines
303 B
Haskell
21 lines
303 B
Haskell
module DayPicker
|
|
( dayPicker
|
|
)
|
|
where
|
|
|
|
import System.Environment
|
|
|
|
import Day1
|
|
import Day2
|
|
|
|
load :: [String] -> IO ()
|
|
load [] = putStrLn "Usage: script [day]"
|
|
load ("1":_) = day1
|
|
load ("2":_) = day2
|
|
load _ = putStrLn "Unavailable date"
|
|
|
|
dayPicker :: IO ()
|
|
dayPicker = do
|
|
args <- getArgs
|
|
load args
|