aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-05-08 15:21:47 +0200
committerLudovic Courtès <ludo@gnu.org>2013-05-08 15:21:47 +0200
commita2ed73898985ca7b593ad9f7ea10a324c093bab5 (patch)
tree2504091e74a7be7adee9a94a748f5d616b3209b3
parentce3b7a619d6e57b18d79ff5f97d71523e23f1f9d (diff)
downloadguix-a2ed73898985ca7b593ad9f7ea10a324c093bab5.tar
guix-a2ed73898985ca7b593ad9f7ea10a324c093bab5.tar.gz
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.
-rw-r--r--guix/scripts/package.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 1d17911dc1..c691315253 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -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~%~}~%"