From 3dc0370ab576388b7fe6908ac73c4561551a494c Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Wed, 1 Dec 2021 19:22:21 +0100 Subject: 2021 --- 2021/Input.hs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 2021/Input.hs (limited to '2021/Input.hs') diff --git a/2021/Input.hs b/2021/Input.hs new file mode 100644 index 0000000..afce44e --- /dev/null +++ b/2021/Input.hs @@ -0,0 +1,20 @@ +module Input where + +import System.Environment +import System.IO + + +getInput :: Int -> IO [String] +getInput day = do + let fname = show day ++ ".in" + + args <- getArgs + str <- case args of + ["-"] -> getContents + [] -> readFile fname + _ -> do + hPutStrLn stderr $ "WARNING: Unrecognised command-line parameters " ++ show args ++ + ", reading from " ++ fname + readFile fname + + return (lines str) -- cgit v1.2.3-54-g00ecf