package: Fix spacing in user messages.

* guix/scripts/package.scm (guix-package)[process-actions]: Fix spacing.
This commit is contained in:
Ludovic Courtès 2013-05-07 13:23:30 +02:00
parent 6ba3900934
commit 15f67744fe
1 changed files with 5 additions and 5 deletions

View File

@ -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)))