~ruther/guix-local

0d2ecf8b5091eee4fde47f21a9a19ac9d4e38a90 — Ludovic Courtès 8 years ago 797d238
ui: Avoid "pkg:out" syntax when reporting collisions.

* guix/ui.scm (call-with-error-handling)[manifest-entry-output*]: New
procedure.  Use it when reporting collisions.
1 files changed, 9 insertions(+), 4 deletions(-)

M guix/ui.scm
M guix/ui.scm => guix/ui.scm +9 -4
@@ 550,19 550,24 @@ interpreted."
                                   (manifest-entry-version parent))
                     (report-parent-entries parent))))

               (define (manifest-entry-output* entry)
                 (match (manifest-entry-output entry)
                   ("out"   "")
                   (output (string-append ":" output))))

               (report-error (G_ "profile contains conflicting entries for ~a:~a~%")
                             (manifest-entry-name entry)
                             (manifest-entry-output entry))
               (report-error (G_ "  first entry: ~a@~a:~a ~a~%")
               (report-error (G_ "  first entry: ~a@~a~a ~a~%")
                             (manifest-entry-name entry)
                             (manifest-entry-version entry)
                             (manifest-entry-output entry)
                             (manifest-entry-output* entry)
                             (manifest-entry-item entry))
               (report-parent-entries entry)
               (report-error (G_ "  second entry: ~a@~a:~a ~a~%")
               (report-error (G_ "  second entry: ~a@~a~a ~a~%")
                             (manifest-entry-name conflict)
                             (manifest-entry-version conflict)
                             (manifest-entry-output conflict)
                             (manifest-entry-output* conflict)
                             (manifest-entry-item conflict))
               (report-parent-entries conflict)
               (exit 1)))