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.
This commit is contained in:
Ludovic Courtès 2013-11-01 23:59:25 +01:00
parent 1b5ba6b1e9
commit 45b418d634

View File

@ -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~%~}~%"