X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FProgram.fs;h=ce7cdd48921ea6430d79173d2a855b00aaef16d8;hb=85adb74195fe7145535d3d36263aec2f7879cd60;hp=24e33cdeca4fa7d0667d953fa413f747f23dc7ef;hpb=6c70577f0bcc17881c753f7a527d2ff4672bb6aa;p=master-thesis.git

diff --git a/Parasitemia/ParasitemiaUI/Program.fs b/Parasitemia/ParasitemiaUI/Program.fs
index 24e33cd..ce7cdd4 100644
--- a/Parasitemia/ParasitemiaUI/Program.fs
+++ b/Parasitemia/ParasitemiaUI/Program.fs
@@ -77,7 +77,8 @@ let main args =
                         match ParasitemiaCore.Analysis.doMultipleAnalysis images None with
                         | Some results ->
                             for id, cells in results do
-                                let config = images |> List.pick (fun (id', config', _) -> if id' = id then Some config' else None)
+                                let config, img = images |> List.pick (fun (id', config', img') -> if id' = id then Some (config', img') else None)
+                                img.Dispose()
                                 let total, infected = countCells cells
                                 fprintf resultFile "File: %s %d %d %.2f (diameter: %A)\n" id total infected (100. * (float infected) / (float total)) config.RBCRadius
                         | None ->
@@ -95,6 +96,6 @@ let main args =
         result
 
     with
-    | _ as ex ->
+    | ex ->
         Log.Fatal("Error: {0}", ex)
         1
\ No newline at end of file