Better trace of available versions when resolver fails to find a version

fsprojects · Aug 13, 2015 · ee7f06a · ee7f06a
1 parent 05d687f
commit ee7f06a
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 4 deletions.
diff --git a/src/Paket.Core/PackageResolver.fs b/src/Paket.Core/PackageResolver.fs
@@ -318,8 +318,15 @@ let Resolve(getVersionsF, getPackageDetailsF, globalFrameworkRestrictions, rootD
                         List.filter (fun v -> currentRequirement.VersionRequirement.IsInRange(v,currentRequirement.Parent.IsRootRequirement() |> not)) versions
 
             if !compatibleVersions = [] then
-                if currentRequirement.Parent.IsRootRequirement() then    
-                    let versionText = String.Join(Environment.NewLine + "     - ",List.sort !availableVersions)
+                if currentRequirement.Parent.IsRootRequirement() then
+                    let versionText = 
+                        let versions = 
+                            if !availableVersions = [] then
+                                getAllVersions(currentRequirement.Sources,currentRequirement.Name,currentRequirement.VersionRequirement.Range) 
+                            else 
+                                !availableVersions
+
+                        String.Join(Environment.NewLine + "     - ",List.sortDescending versions)
                     failwithf "Could not find compatible versions for top level dependency:%s     %A%s   Available versions:%s     - %s%s   Try to relax the dependency or allow prereleases." 
                         Environment.NewLine (String.Join(Environment.NewLine + "     ", currentRequirements |> Seq.map string)) Environment.NewLine Environment.NewLine versionText Environment.NewLine
                 else

diff --git a/src/Paket/Paket.fsproj b/src/Paket/Paket.fsproj
@@ -48,8 +48,8 @@
     <WarningLevel>3</WarningLevel>
     <DocumentationFile>
     </DocumentationFile>
-    <StartArguments>install</StartArguments>
-    <StartWorkingDirectory>D:\code\Paketkopie</StartWorkingDirectory>
+    <StartArguments>update</StartArguments>
+    <StartWorkingDirectory>D:\code\PaketKopie</StartWorkingDirectory>
   </PropertyGroup>
   <PropertyGroup>
     <MinimumVisualStudioVersion Condition="'$(MinimumVisualStudioVersion)' == ''">11</MinimumVisualStudioVersion>