diff options
| -rw-r--r-- | guix/scripts/package.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 5eddb7defe..b970c2b7b9 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -653,17 +653,17 @@ Install, remove, or upgrade PACKAGES in a single transaction.\n")) (match install (((name version _ path _) ..1) (let ((len (length name)) - (install (map (cut format #f " ~a-~a\t~a" <> <> <>) + (install (map (cut format #f " ~a-~a\t~a" <> <> <>) name version path))) (if dry-run? (format (current-error-port) - (N_ "The following package would be installed:~% ~{~a~%~}~%" - "The following packages would be installed:~% ~{~a~%~}~%" + (N_ "The following package would be installed:~%~{~a~%~}~%" + "The following packages would be installed:~%~{~a~%~}~%" len) install) (format (current-error-port) - (N_ "The following package will be installed:~% ~{~a~%~}~%" - "The following packages will be installed:~% ~{~a~%~}~%" + (N_ "The following package will be installed:~%~{~a~%~}~%" + "The following packages will be installed:~%~{~a~%~}~%" len) install)))) (_ #f))) |