From 15f67744fea2dfeb232dd4e8b4b6db8ed802dcd1 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 7 May 2013 13:23:30 +0200 Subject: package: Fix spacing in user messages. * guix/scripts/package.scm (guix-package)[process-actions]: Fix spacing. --- guix/scripts/package.scm | 10 +++++----- 1 file 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))) -- cgit v1.2.3