projects
/
master-thesis.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8cf2153
)
Add total analysis time #319
author
Greg Burri
<greg.burri@gmail.com>
Sat, 27 Mar 2021 21:38:02 +0000
(22:38 +0100)
committer
Greg Burri
<greg.burri@gmail.com>
Sat, 27 Mar 2021 21:38:02 +0000
(22:38 +0100)
Parasitemia/ParasitemiaUI/Analysis.fs
patch
|
blob
|
history
diff --git
a/Parasitemia/ParasitemiaUI/Analysis.fs
b/Parasitemia/ParasitemiaUI/Analysis.fs
index
a1b253f
..
1747fc2
100644
(file)
--- 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
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)
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"
win.textLog.Text <- ""
win.butClose.Content <- "Abort"
+ let sw = System.Diagnostics.Stopwatch ()
+ sw.Start ()
+
async {
let maybeResults =
ParasitemiaCore.Analysis.doMultipleAnalysis
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
| 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 ->
atLeastOneAnalysisPerformed <- true
analysisPerformed <- true
| None ->