Fallback to System.Environment.SpecialFolder.LocalApplicationData - r…

…eferences #1863
fsprojects · Aug 22, 2016 · 6d41f9d · 6d41f9d
1 parent 12b5275
commit 6d41f9d
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/src/Paket.Core/Constants.fs b/src/Paket.Core/Constants.fs
@@ -34,14 +34,20 @@ let AppDataFolder       = Environment.GetFolderPath(Environment.SpecialFolder.Ap
 let PaketConfigFolder   = Path.Combine(AppDataFolder, "Paket")
 let PaketConfigFile     = Path.Combine(PaketConfigFolder, "paket.config")
 
-let UserProfile = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)
-let GitRepoCacheFolder = Path.Combine(UserProfile,".paket","git","db")
+let LocalRootForTempData =
+    let userProfile = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile) 
+    if String.IsNullOrWhiteSpace userProfile then
+        Environment.GetFolderPath(System.Environment.SpecialFolder.LocalApplicationData)
+    else
+        userProfile
+
+let GitRepoCacheFolder = Path.Combine(LocalRootForTempData,".paket","git","db")
 
 let [<Literal>] GlobalPackagesFolderEnvironmentKey = "NUGET_PACKAGES"
 let UserNuGetPackagesFolder = 
     let path = Environment.GetEnvironmentVariable(GlobalPackagesFolderEnvironmentKey)
     if String.IsNullOrEmpty path then
-        Path.Combine(UserProfile,".nuget","packages")
+        Path.Combine(LocalRootForTempData,".nuget","packages")
     else
         path.Replace(Path.AltDirectorySeparatorChar, Path.DirectorySeparatorChar)