Parasitemia/ParasitemiaUI/Constants.fs

   1 module ParasitemiaUI.Constants
   2
   3 open System
   4 open System.IO
   5
   6 let APPLICATION_NAME = "Parasitemia"
   7
   8 let USER_DIRECTORY =
   9     Path.Combine (
  10         Environment.GetFolderPath Environment.SpecialFolder.ApplicationData,
  11         APPLICATION_NAME
  12     )
  13
  14 let USER_DIRECTORY_LOG =
  15     Path.Combine (
  16         USER_DIRECTORY,
  17         "Log",
  18 #if DEBUG
  19         "Debug"
  20 #else
  21         ""
  22 #endif
  23     )