X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FAnalysis.fs;h=e276be6232daede51dd7be603af3c5c7823290e0;hp=ceb61bea40b4044b2c7c2e3a5810a5c3c7525e9e;hb=e8d14548fc5b127970fccb19bad146512f7ac6d9;hpb=e2517b9837d5c82e003bc3aa7b27040636cea6f0

diff --git a/Parasitemia/ParasitemiaUI/Analysis.fs b/Parasitemia/ParasitemiaUI/Analysis.fs
index ceb61be..e276be6 100644
--- a/Parasitemia/ParasitemiaUI/Analysis.fs
+++ b/Parasitemia/ParasitemiaUI/Analysis.fs
@@ -27,7 +27,7 @@ let showWindow (parent : Window) (state : State.State) : bool =
     let logListener =
         {
             new Logger.IListener with
-                member this.NewEntry severity mess =
+                member this.NewEntry severity _header mess =
                     win.Dispatcher.Invoke(fun () ->
                         win.textLog.Inlines.Add(Documents.Run(mess))
                         win.textLog.Inlines.Add(Documents.LineBreak())
@@ -140,11 +140,11 @@ let showWindow (parent : Window) (state : State.State) : bool =
                             | Some results ->
                                 for id, cells in results do
                                     state.SetResult (int id) cells
-                                Logger.Log.User("All analyses terminated successfully")
+                                Logger.Log.Info "All analyses terminated successfully"
                                 atLeastOneAnalysisPerformed <- true
                                 analysisPerformed <- true
                             | None ->
-                                Logger.Log.User("Analysis aborted")
+                                Logger.Log.Info "Analysis aborted"
 
                             win.Dispatcher.Invoke(fun () ->
                                 win.progress.Value <- if maybeResults.IsSome then 100. else 0.