~ruther/guix-local

45b418d6342006779c599ad5ff7414fedad5de62 — Ludovic Courtès 12 years ago 1b5ba6b
guix package: Show the output name of what's being removed.

* guix/scripts/package.scm (show-what-to-remove/install): Show the
  output name of packages being removed.
1 files changed, 3 insertions(+), 3 deletions(-)

M guix/scripts/package.scm
M guix/scripts/package.scm => guix/scripts/package.scm +3 -3
@@ 174,10 174,10 @@ DURATION-RELATION with the current time."
packages that will/would be installed and removed."
  ;; TODO: Report upgrades more clearly.
  (match remove
    ((($ <manifest-entry> name version _ path _) ..1)
    ((($ <manifest-entry> name version output path _) ..1)
     (let ((len    (length name))
           (remove (map (cut format #f "  ~a-~a\t~a" <> <> <>)
                        name version path)))
           (remove (map (cut format #f "  ~a-~a\t~a\t~a" <> <> <> <>)
                        name version output path)))
       (if dry-run?
           (format (current-error-port)
                   (N_ "The following package would be removed:~%~{~a~%~}~%"