diff --git a/Day5/puzzle2.hs b/Day5/puzzle2.hs
index 5888cd5..1f1f099 100644
--- a/Day5/puzzle2.hs
+++ b/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