Day twelve part one

day-12-haskell/app/Main.hs

@@ -0,0 +1,17 @@
+module Main (main) where
+
+import System.Environment.Blank ( getArgs )
+import Lib (task1)
+
+main :: IO ()
+main = do
+  args <- getArgs
+  case args of
+    ["1", file] -> do
+      input <- readFile file
+      result <- task1 input
+      print result
+    -- ["2", file] -> do
+    --   input <- readFile file
+    --   print $ task2 input
+    _ -> error "Usage: <1|2> <input file>"