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))))
(_ #f))
(match install
(((name version _ path _) ..1)
(((name version output path _) ..1)
(let ((len (length name))
(install (map (cut format #f " ~a-~a\t~a" <> <> <>)
name version path)))
(install (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 installed:~%~{~a~%~}~%"