Better error message when paket.lock an paket.dependencies are out of…

… sync.
fsprojects · Mar 15, 2016 · 6ef351e · 6ef351e
1 parent 9008f5b
commit 6ef351e
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md
@@ -1,3 +1,6 @@
+#### 2.52.8 - 15.03.2016
+* USABILITY: Better error message when paket.lock an paket.dependencies are out of sync.
+
 #### 2.52.7 - 14.03.2016
 * USABILITY: Emit net40-full moniker
 

diff --git a/src/Paket.Core/RestoreProcess.fs b/src/Paket.Core/RestoreProcess.fs
@@ -120,6 +120,10 @@ let Restore(dependenciesFileName,force,group,referencesFileNames) =
                 |> List.toSeq
                 |> computePackageHull kv.Key lockFile
 
-        restore(root, kv.Key, dependenciesFile.Groups.[kv.Value.Name].Sources, force, lockFile,Set.ofSeq packages)
-        |> Async.RunSynchronously
-        |> ignore
+        match dependenciesFile.Groups |> Map.tryFind kv.Value.Name with
+        | None ->
+            failwithf "The group %O was not found in the paket.lock file but not in the paket.dependencies file. Please run \"paket install\" again." kv.Value.Name
+        | Some depFileGroup ->        
+            restore(root, kv.Key, depFileGroup.Sources, force, lockFile,Set.ofSeq packages)
+            |> Async.RunSynchronously
+            |> ignore