Day twelve part two

day-12-haskell/app/Main.hs

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