diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-05-07 13:23:30 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-05-07 13:23:30 +0200 |
| commit | 15f67744fea2dfeb232dd4e8b4b6db8ed802dcd1 (patch) | |
| tree | 52878ceb69d7da5837c4133f4e410e8fb461b533 | |
| parent | 6ba39009348c7efd23c7453f05759d0e7f8552ea (diff) | |
| download | guix-15f67744fea2dfeb232dd4e8b4b6db8ed802dcd1.tar.gz guix-15f67744fea2dfeb232dd4e8b4b6db8ed802dcd1.zip | |
package: Fix spacing in user messages.
* guix/scripts/package.scm (guix-package)[process-actions]: Fix spacing.
| -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))) |