diff --git a/app/3.hs b/app/3.hs
index db44e98..eae256a 100644
--- a/app/3.hs
+++ b/app/3.hs
@@ -6,9 +6,9 @@ import Data.List.Split
 
 e :: [String] ->  [(Int,Int)]
 e = ((\case
-             [a,b] -> (read a, read b)
-             err -> error $ "Parsing failed on: " ++ show err
-         ) . splitWhen (== ',') . init . drop 4 <$>)
+        [a,b] -> (read a, read b)
+        err -> error $ "Parsing failed on: " ++ show err
+        ) . splitWhen (== ',') . init . drop 4 <$>)
 
 parse1 :: String -> [(Int,Int)]
 parse1 =  e . getAllTextMatches . (=~ "mul\\([[:digit:]]+,[[:digit:]]+\\)")