Guessfixing case sensitivity issue on *nix

fsprojects · Sep 20, 2014 · 1e9a310 · 1e9a310
1 parent 952677e
commit 1e9a310
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/Paket/InstallProcess.fs b/src/Paket/InstallProcess.fs
@@ -109,12 +109,13 @@ let Install(regenerate, force, hard, dependenciesFilename) =
             |> Map.ofArray
 
         let rec addPackage (name:string) =
-            if name.ToLower().StartsWith "file:" then
+            let identity = name.ToLower()
+
+            if identity.StartsWith "file:" then
                 let sourceFile = name.Split(':').[1]
                 usedSourceFiles.Add sourceFile |> ignore
             else
-                let name = name.ToLower()
-                match allPackages |> Map.tryFind name with
+                match allPackages |> Map.tryFind identity with
                 | Some package ->
                     if usedPackages.Add name then
                         if not lockFile.Strict then
@@ -136,4 +137,4 @@ let Install(regenerate, force, hard, dependenciesFilename) =
         let contentFiles = copyContentFilesToProject project packagesWithContent
         project.UpdateContentFiles(contentFiles)
 
-        project.Save()
+        project.Save()