X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FUtils.fs;h=c2440b99b09e819028058d44d5c6569b1b3e1e02;hp=b30e9ace4dc41a4ec39350824448bcfec4dba25f;hb=807437584bdd3d7b7b33be8282472f81f8cce606;hpb=8013d6a586604e443332e6e9a715c86df444a875

diff --git a/Parasitemia/Parasitemia/Utils.fs b/Parasitemia/Parasitemia/Utils.fs
index b30e9ac..c2440b9 100644
--- a/Parasitemia/Parasitemia/Utils.fs
+++ b/Parasitemia/Parasitemia/Utils.fs
@@ -17,7 +17,7 @@ let logTime (m: string) (f: unit -> 'a) : 'a =
     sw.Start()
     let res = f ()
     sw.Stop()
-    log <| sprintf "%A (time: %A ms)" m sw.ElapsedMilliseconds
+    log <| sprintf "%s (time: %d ms)" m sw.ElapsedMilliseconds
     res
 
 let inline lineFromTwoPoints (p1: PointD) (p2: PointD) : Line =