X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FExport.fs;h=29fc0a586be9f1a5704735baff2c7e030efb3b6d;hp=adecd6c76567ca1c718c9117c4beb2992a52f73c;hb=b87b35b922551f122228df1fd9c530bbb807935a;hpb=2e3cd07dd099944059ef5e7a7f5ef57ffe3d677b

diff --git a/Parasitemia/ParasitemiaUI/Export.fs b/Parasitemia/ParasitemiaUI/Export.fs
index adecd6c..29fc0a5 100644
--- a/Parasitemia/ParasitemiaUI/Export.fs
+++ b/Parasitemia/ParasitemiaUI/Export.fs
@@ -6,10 +6,10 @@ open System.IO
 open State
 
 /// <exception cref="System.IOException">If the results cannot be exported</exception>
-let exportResults (state: State) (filePath: string) =
+let exportResults (state : State) (filePath : string) =
     use writer = new StreamWriter(new FileStream(filePath, FileMode.Create, FileAccess.Write))
     fprintfn writer "File: %s" state.FilePath
-    fprintfn writer "Export date: %A" DateTime.Now
+    fprintfn writer "Export date: %O" DateTime.Now
 
     fprintfn writer ""
     fprintfn writer "Patient ID: %s" state.PatientID