From a2ed73898985ca7b593ad9f7ea10a324c093bab5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 8 May 2013 15:21:47 +0200 Subject: [PATCH] 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. --- guix/scripts/package.scm | 6 +++--- 1 file 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~%~}~%"