From 1e9a310189450a3272fa9074c5bddee306efa82b Mon Sep 17 00:00:00 2001
From: Ilker Cetinkaya <ilker@ilker.de>
Date: Sat, 20 Sep 2014 18:24:46 +0200
Subject: [PATCH] Guessfixing case sensitivity issue on *nix

---
 src/Paket/InstallProcess.fs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/Paket/InstallProcess.fs b/src/Paket/InstallProcess.fs
index 6c8a41bc65..bfae9b71a7 100644
--- 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()
\ No newline at end of file
+        project.Save()