Improve code

Day2/puzzle2.hs

@@ -2,9 +2,9 @@ import Data.List (sort, inits, tails)
 
 isSafe :: [Int] -> Bool
 isSafe xs = (isAscending xs || isDescending xs) && maximum distances <= 3 && minimum distances >= 1
-            where isAscending xs = xs == sort xs
+            where isAscending xs  = xs == sort xs
                   isDescending xs = xs == reverse (sort xs)
-                  distances = map abs $ zipWith (-) xs (tail xs)
+                  distances       = map abs $ zipWith (-) xs (tail xs)
 
 removeLevel :: [Int] -> [[Int]]
 removeLevel xs = zipWith (++) ys zs