Cleaning.

[master-thesis.git] / Parasitemia / ParasitemiaCore / KdTree.fs

diff --git a/Parasitemia/ParasitemiaCore/KdTree.fs b/Parasitemia/ParasitemiaCore/KdTree.fs
index 94a3921..4513208 100644 (file)
--- a/Parasitemia/ParasitemiaCore/KdTree.fs
+++ b/Parasitemia/ParasitemiaCore/KdTree.fs
@@ -67,8 +67,8 @@ type Tree<'a when 'a :> I2DCoords> =
     member this.Search (searchRegion: Region) : 'a list =
         let rec valuesFrom (tree: Tree<'a>) : 'a list =
             match tree with
-            | Leaf v -> [v]
             | Node (_, part1, part2) -> (valuesFrom part1) @ (valuesFrom part2)
+            | Leaf v -> [v]
 
         let rec searchWithRegion (tree: Tree<'a>) (currentRegion: Region) (depth: int) : 'a list =
             match tree with