X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FKdTree.fs;h=451320854fa2d701c81a8e7a73c5950a06d76f62;hb=04d4504e7b248a82ddfc1a41d325e59d24146590;hp=94a3921e8bad8e36864ab8247b7a12b95c439533;hpb=4bfa3cbdc6145e6944f02e24829ab2ef3a851ac1;p=master-thesis.git

diff --git a/Parasitemia/ParasitemiaCore/KdTree.fs b/Parasitemia/ParasitemiaCore/KdTree.fs
index 94a3921..4513208 100644
--- 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