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 @@ (define (show-what-to-remove/install remove install dry-run?) 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~%~}~%"