X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FExport.fs;h=52638d36012675add04510c6d909b5cdf5df3464;hp=adecd6c76567ca1c718c9117c4beb2992a52f73c;hb=2d712781def419c9acc98368f7102b19b064f16d;hpb=c4a76a01f62568c6353396ff85551a3151fc5236

diff --git a/Parasitemia/ParasitemiaUI/Export.fs b/Parasitemia/ParasitemiaUI/Export.fs
index adecd6c..52638d3 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) =
-    use writer = new StreamWriter(new FileStream(filePath, FileMode.Create, FileAccess.Write))
+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