Make the resolver error a bit more clear - references #156

fsprojects · Sep 24, 2014 · 164815b · 164815b
1 parent 1923bee
commit 164815b
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 8 deletions.
diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md
@@ -1,4 +1,4 @@
-#### 0.3.0-alpha002 - 23.09.2014
+#### 0.3.0-alpha003 - 23.09.2014
 * New command: paket add [--interactive] - http://fsprojects.github.io/Paket/paket-add.html
 * New command: paket simplify - http://fsprojects.github.io/Paket/paket-simplify.html
 * New package resolver algorithm

diff --git a/src/Paket/UpdateProcess.fs b/src/Paket/UpdateProcess.fs
@@ -2,21 +2,27 @@
 module Paket.UpdateProcess
 
 open Paket
-open Paket.Logging
+open System
 
 let getResolvedPackagesOrFail resolution =
     match resolution with
     | Ok model -> model
-    | Conflict(closed,stillOpen) -> 
-        traceErrorfn "Resolved:"
+    | Conflict(closed,stillOpen) ->
+
+        let errorText = ref ""
+
+        let addToError text = errorText := !errorText + Environment.NewLine + text
+
+        addToError "Error in resolution." 
+        addToError "  Resolved:"
         for x in closed do
-           traceErrorfn  "  - %s %s" x.Name (x.VersionRange.ToString())
+           addToError <| sprintf "    - %s %s" x.Name (x.VersionRange.ToString())
 
-        traceErrorfn "Still open:"
+        addToError "  Still open:"
         for x in stillOpen do
-           traceErrorfn  "  - %s %s" x.Name (x.VersionRange.ToString())
+           addToError <| sprintf  "    - %s %s" x.Name (x.VersionRange.ToString())
 
-        failwithf "Error in resolution." 
+        failwith !errorText
 
 
 /// Update command