From: Greg Burri 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 ->