Initial commit

src/AoC.hs

@@ -0,0 +1,28 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module AoC (
+  defaultMain,
+) where
+
+import AoC.Day
+import AoC.Riddle
+import AoC.Year
+
+import Control.Exception qualified as Exception
+import System.IO (hPutStrLn)
+import System.IO.Error qualified as IOError
+
+-- import AoC.Y0000 qualified as Y0000
+
+runAoC :: [String] -> IO ()
+runAoC _args =
+  putStrLn "Hello"
+
+handleError :: IOError.IOError -> IO ()
+handleError e = do
+  hPutStrLn stderr $ "I ran into an issue: " <> show e
+
+defaultMain :: IO ()
+defaultMain = do
+  args <- getArgs
+  Exception.catch (runAoC args) handleError