X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FProgram.fs;h=87e1c26add5322a75b11151066a7a34b60f10235;hp=b7b4202f62020294e62cb68c9c2a0f4121195514;hb=d3f9cd7b16d25f49bd8d06394b0f1d4040809fbd;hpb=a6aee26e20f3b24e6b07120cf95a7221dc072778

diff --git a/Parasitemia/ParasitemiaUI/Program.fs b/Parasitemia/ParasitemiaUI/Program.fs
index b7b4202..87e1c26 100644
--- a/Parasitemia/ParasitemiaUI/Program.fs
+++ b/Parasitemia/ParasitemiaUI/Program.fs
@@ -99,10 +99,10 @@ let main args =
                             fun () ->
                                 match ParasitemiaCore.Analysis.doMultipleAnalysis images None with
                                 | Some results ->
-                                    for id, cells in results do
+                                    for id, result in results do
                                         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
+                                        let total, infected = countCells result.Cells
                                         fprintf resultFile "File: %s %d %d %.2f (diameter: %O)\n" id total infected (100. * (float infected) / (float total)) config.RBCRadius
                                 | None ->
                                     fprintf resultFile "Analysis aborted"