X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FUtils.fs;fp=Parasitemia%2FParasitemiaUI%2FUtils.fs;h=a536853b1ea9046336a59dc6e3914a5917323407;hp=927e441d3285dc70551b18943924212892b0a2d7;hb=24bfd2ea10b5945100168ad5a1b2545e43d05569;hpb=c3370c187e36ca3c73cf3600f19783f958097e29

diff --git a/Parasitemia/ParasitemiaUI/Utils.fs b/Parasitemia/ParasitemiaUI/Utils.fs
index 927e441..a536853 100644
--- a/Parasitemia/ParasitemiaUI/Utils.fs
+++ b/Parasitemia/ParasitemiaUI/Utils.fs
@@ -108,6 +108,7 @@ let argsHelp =
 open System
 open System.Windows
 
+// Inspired by https://github.com/fsprojects/FSharp.ViewModule/blob/master/src/FSharp.ViewModule/FunCommand.fs
 type FunCommand (execute : obj -> unit, canExecute : obj -> bool) =
     let canExecuteChanged = Event<EventHandler, EventArgs> ()