Fix indentation

Day5/puzzle2.hs

@@ -12,8 +12,8 @@ getMiddle xs = xs !! (length xs `div` 2)
 sortOnRules :: [(Int, Int)] -> [Int] -> [Int]
 sortOnRules _ [] = []
 sortOnRules rules (x:xs) = sortOnRules rules beforeArray ++ [x] ++ sortOnRules rules afterArray
-                            where afterArray = xs \\ before
-                                  beforeArray  = xs \\ afterArray
+                            where afterArray  = xs \\ before
+                                  beforeArray = xs \\ afterArray
                                   before      = [ p | (p, n) <- rules, n  == x ]
 
 main = do