diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-11-01 23:59:25 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-11-01 23:59:25 +0100 |
| commit | 45b418d6342006779c599ad5ff7414fedad5de62 (patch) | |
| tree | 0dca8352cd4df51b79166732345863251a7274ca | |
| parent | 1b5ba6b1e9c1e2b6e9bf4bc664c2270272103cb7 (diff) | |
| download | patches-45b418d6342006779c599ad5ff7414fedad5de62.tar patches-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.scm | 6 |
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~%~}~%" |