diff --git a/aoc-2/main.hs b/aoc-2/main.hs
index 3e3948f..a809f46 100644
--- a/aoc-2/main.hs
+++ b/aoc-2/main.hs
@@ -29,8 +29,8 @@ calculateChecksum input = a * b
 
 sameChars :: String -> String -> Int
 sameChars (x:xs) (y:ys) 
-                | x == y    = 1 + sameChars xs ys
-                | otherwise = sameChars xs ys
+    | x == y    = 1 + sameChars xs ys
+    | otherwise = sameChars xs ys
 sameChars [] [] = 0
 
 getCorrectBoxes :: [String] -> [String]