X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FConstants.fs;h=bef3910e15399291b81067420dd5748447d9f091;hb=a498bc4223a22cd38b91b3348912301e15c077ae;hp=8ad5db7dc3eefb5ec313cb481fc149854bef74e9;hpb=2e029053d283ce141ce9870336cb9574ea4a203a;p=master-thesis.git

diff --git a/Parasitemia/ParasitemiaUI/Constants.fs b/Parasitemia/ParasitemiaUI/Constants.fs
index 8ad5db7..bef3910 100644
--- a/Parasitemia/ParasitemiaUI/Constants.fs
+++ b/Parasitemia/ParasitemiaUI/Constants.fs
@@ -1 +1,21 @@
 module ParasitemiaUI.Constants
+
+open System
+open System.IO
+
+let USER_DIRECTORY =
+    Path.Combine (
+        Environment.GetFolderPath Environment.SpecialFolder.ApplicationData,
+        "Parasitemia"
+    )
+
+let USER_DIRECTORY_LOG =
+    Path.Combine (
+        USER_DIRECTORY,
+        "Log",
+#if DEBUG
+        "Debug"
+#else
+        ""
+#endif
+    )
\ No newline at end of file