Parasitemia/ParasitemiaUI/Constants.fs

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