package: Display the output of packages to be installed/removed.

* guix/scripts/package.scm (guix-package)[show-what-to-remove/install]:
  Display the output name.
This commit is contained in:
Ludovic Courtès 2013-05-08 15:21:47 +02:00
parent ce3b7a619d
commit a2ed738989
1 changed files with 3 additions and 3 deletions

View File

@ -652,10 +652,10 @@ Install, remove, or upgrade PACKAGES in a single transaction.\n"))
remove)))) remove))))
(_ #f)) (_ #f))
(match install (match install
(((name version _ path _) ..1) (((name version output path _) ..1)
(let ((len (length name)) (let ((len (length name))
(install (map (cut format #f " ~a-~a\t~a" <> <> <>) (install (map (cut format #f " ~a-~a\t~a\t~a" <> <> <> <>)
name version path))) name version output path)))
(if dry-run? (if dry-run?
(format (current-error-port) (format (current-error-port)
(N_ "The following package would be installed:~%~{~a~%~}~%" (N_ "The following package would be installed:~%~{~a~%~}~%"