Cleanup package names - fixes #108

fsprojects · Sep 17, 2014 · dfbd422 · dfbd422
1 parent 3f486c8
commit dfbd422
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 7 deletions.
diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md
@@ -1,4 +1,4 @@
-#### 0.2.0-alpha012 - 17.09.2014
+#### 0.2.0-alpha013 - 17.09.2014
 * Package names in Dependencies file are no longer case-sensitive - https://github.com/fsprojects/Paket/pull/108
 
 #### 0.2.0-alpha011 - 17.09.2014

diff --git a/src/Paket/PackageResolver.fs b/src/Paket/PackageResolver.fs
@@ -136,14 +136,19 @@ let Resolve(force, discovery : IDiscovery, rootDependencies:UnresolvedPackage se
         |> Seq.fold (fun m (p, d) -> addDependency p m d) Map.empty
         |> analyzeGraph Map.empty
 
+    // cleanup names
     resolved
-    |> Seq.fold (fun map x -> 
-
-
+    |> Seq.fold (fun map x ->       
         match x.Value with
-        | Resolved p -> 
-            let officialName = p.Name
-            Map.add officialName x.Value map
+        | Resolved p ->
+            let cleanup =
+                { p with DirectDependencies =
+                        p.DirectDependencies
+                        |> List.map (fun (name,v) -> 
+                            match resolved.[name.ToLower()] with
+                            | Resolved d -> d.Name,v
+                            | _ -> name,v) }
+            Map.add p.Name (Resolved cleanup) map
         | _ -> Map.add x.Key x.Value map
     ) Map.empty