better error in groups

fsprojects · Sep 21, 2015 · d869b9b · d869b9b
1 parent 372bdd5
commit d869b9b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/src/Paket.Core/UpdateProcess.fs b/src/Paket.Core/UpdateProcess.fs
@@ -120,8 +120,12 @@ let selectiveUpdate resolve (lockFile:LockFile) (dependenciesFile:DependenciesFi
     let groups = 
         resolution
         |> Map.map (fun groupName group -> 
-                { Name = dependenciesFile.Groups.[groupName].Name
-                  Options = dependenciesFile.Groups.[groupName].Options
+                let dependenciesGroup =
+                    match dependenciesFile.Groups |> Map.tryFind groupName with
+                    | Some g -> g
+                    | None -> failwithf "Group %O was not found in paket.dependencies." groupName
+                { Name = dependenciesGroup.Name
+                  Options = dependenciesGroup.Options
                   Resolution = group.ResolvedPackages.GetModelOrFail()
                   RemoteFiles = group.ResolvedSourceFiles })
 

diff --git a/src/Paket/Paket.fsproj b/src/Paket/Paket.fsproj
@@ -34,11 +34,11 @@
     <StartWorkingDirectory>c:\code\Paket09x</StartWorkingDirectory>
     <StartWorkingDirectory>D:\code\Pakettest</StartWorkingDirectory>
     <StartWorkingDirectory>D:\code\Paketkopie</StartWorkingDirectory>
-    <StartArguments>update</StartArguments>
+    <StartArguments>update nuget stidgen</StartArguments>
     <StartAction>Project</StartAction>
     <StartProgram>paket.exe</StartProgram>
     <StartWorkingDirectory>c:\code\Paketkopie</StartWorkingDirectory>
-    <StartWorkingDirectory>d:\code\paketkopie</StartWorkingDirectory>
+    <StartWorkingDirectory>d:\code\PaketRepro</StartWorkingDirectory>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <DebugType>pdbonly</DebugType>