From: Greg Burri <greg.burri@gmail.com>
Date: Sat, 27 Mar 2021 21:38:02 +0000 (+0100)
Subject: Add total analysis time #319
X-Git-Url: http://git.euphorik.ch/?a=commitdiff_plain;h=8866c578f1210295bdcf04c8212eae81d52d630a;p=master-thesis.git

Add total analysis time #319
---

diff --git a/Parasitemia/ParasitemiaUI/Analysis.fs b/Parasitemia/ParasitemiaUI/Analysis.fs
index a1b253f..1747fc2 100644
--- a/Parasitemia/ParasitemiaUI/Analysis.fs
+++ b/Parasitemia/ParasitemiaUI/Analysis.fs
@@ -20,7 +20,7 @@ let showWindow (parent : Window) (state : State.State) : bool =
     let logListener =
         {
             new Logger.IListener with
-                member this.NewEntry severity _header mess =
+                member this.NewEntry severity header mess =
                     win.Dispatcher.Invoke (
                         fun () ->
                             win.textLog.Inlines.Add (Documents.Run mess)
@@ -144,6 +144,9 @@ let showWindow (parent : Window) (state : State.State) : bool =
                     win.textLog.Text <- ""
                     win.butClose.Content <- "Abort"
 
+                    let sw = System.Diagnostics.Stopwatch ()
+                    sw.Start ()
+
                     async {
                         let maybeResults =
                             ParasitemiaCore.Analysis.doMultipleAnalysis
@@ -156,7 +159,7 @@ let showWindow (parent : Window) (state : State.State) : bool =
                                 | Some results ->
                                     for id, cells in results do
                                         state.SetResult id cells
-                                    Logger.Log.Info "All analyses terminated successfully"
+                                    Logger.Log.Info $"All analyses terminated successfully (total time: %d{sw.ElapsedMilliseconds} ms)"
                                     atLeastOneAnalysisPerformed <- true
                                     analysisPerformed <- true
                                 | None ->