Fix indentation

src/Day02.hs

@@ -1,6 +1,6 @@
 module Day02
   ( day02_1,
-    day02_2
+    day02_2,
   )
 where
 
@@ -17,13 +17,13 @@ sumInvalid = foldl addInvalid 0
 
 sumInvalid' :: [Int] -> Int
 sumInvalid' = foldl addInvalid 0
-    where addInvalid acc n
+  where
+    addInvalid acc n
       | let s = drop 1 $ show n ++ show n, show n `isInfixOf` take (length s - 1) s = acc + n
       | otherwise = acc
 
-
 getRange :: String -> [Int]
-getRange r = [read (takeWhile (/= '-') r)..read $ drop 1 (dropWhile (/= '-') r)]
+getRange r = [read (takeWhile (/= '-') r) .. read $ drop 1 (dropWhile (/= '-') r)]
 
 parseInput :: IO [Int]
 parseInput = do

src/Day03.hs

@@ -1,6 +1,6 @@
 module Day03
   ( day03_1,
-    day03_2
+    day03_2,
   )
 where