diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-05-08 15:21:47 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-05-08 15:21:47 +0200 |
| commit | a2ed73898985ca7b593ad9f7ea10a324c093bab5 (patch) | |
| tree | 2504091e74a7be7adee9a94a748f5d616b3209b3 | |
| parent | ce3b7a619d6e57b18d79ff5f97d71523e23f1f9d (diff) | |
| download | patches-a2ed73898985ca7b593ad9f7ea10a324c093bab5.tar patches-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.scm | 6 |
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~%~}~%" |