From 15f67744fea2dfeb232dd4e8b4b6db8ed802dcd1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 7 May 2013 13:23:30 +0200
Subject: [PATCH] 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 5eddb7defe0..b970c2b7b9a 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -653,17 +653,17 @@ (define (show-what-to-remove/install remove install dry-run?)
(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)))
--
GitLab