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

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