ALGO: rm empty 'where' in KDTree

2014-12-07 04:47:19 +01:00 · 2014-12-07 04:47:19 +01:00 · f16fe7738a
commit f16fe7738a
parent 8abe795add
1 changed files with 0 additions and 1 deletions
--- a/Algorithms/KDTree.hs
+++ b/Algorithms/KDTree.hs
@ -121,7 +121,6 @@ rangeSearch kd' sq' = (goPt kd' sq', goTree kd' sq' True)
      ++ (if' ((cur' dir . unp2 $ pt) < p2' dir sq)
              (goPt rn sq)
              [])
-        where
    -- A pretty rose tree suitable for printing.
    goTree :: KDTree PT -> Square -> Bool -> Tree String
    goTree KTNil _ _ = Node "nil" []