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

diff --git a/Parasitemia/ParasitemiaUI/Constants.fs b/Parasitemia/ParasitemiaUI/Constants.fs
index bef3910..255c27b 100644
--- a/Parasitemia/ParasitemiaUI/Constants.fs
+++ b/Parasitemia/ParasitemiaUI/Constants.fs
@@ -3,10 +3,12 @@
 open System
 open System.IO
 
+let APPLICATION_NAME = "Parasitemia"
+
 let USER_DIRECTORY =
     Path.Combine (
         Environment.GetFolderPath Environment.SpecialFolder.ApplicationData,
-        "Parasitemia"
+        APPLICATION_NAME
     )
 
 let USER_DIRECTORY_LOG =