aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-11-01 23:59:25 +0100
committerLudovic Courtès <ludo@gnu.org>2013-11-01 23:59:25 +0100
commit45b418d6342006779c599ad5ff7414fedad5de62 (patch)
tree0dca8352cd4df51b79166732345863251a7274ca
parent1b5ba6b1e9c1e2b6e9bf4bc664c2270272103cb7 (diff)
downloadguix-45b418d6342006779c599ad5ff7414fedad5de62.tar
guix-45b418d6342006779c599ad5ff7414fedad5de62.tar.gz
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.
-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 7189256e0f..bf39259922 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -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~%~}~%"