Day ten part two

day-10-haskell/app/Main.hs

@@ -2,6 +2,7 @@ module Main (main) where
 
 import System.Environment.Blank ( getArgs )
 import Task1 (task1)
+import Task2 (task2)
 
 main :: IO ()
 main = do
@@ -11,4 +12,8 @@ main = do
       input <- readFile file
       result <- task1 input
       print result
+    ["2", file] -> do
+      input <- readFile file
+      result <- task2 input
+      print result
     _ -> error "Usage: <1|2> <input file>"