Improve code prettiness

2014-11-16 16:45:51 +01:00
parent 562fdbe26f
commit ea88ef84ea
3 changed files with 39 additions and 39 deletions
--- a/Algorithms/QuadTree/QuadTree.hs
+++ b/Algorithms/QuadTree/QuadTree.hs
@@ -187,10 +187,10 @@ findNeighbor ot zr = case ot of
      | is1 z = goUp z >>= go1
      | is2 z = goUp z >>= go2
      | otherwise = checkParent
-                      . go is1 is2 is3 go1 go2 go3 go4
-                      . fromJust
-                      . goUp
-                      $ z
+                    . go is1 is2 is3 go1 go2 go3 go4
+                    . fromJust
+                    . goUp
+                    $ z
      where
        checkParent (Just (z'@(TNode {}, _)))
          | is3 z     = go3 z'