From 83e61a73c40755e03571c60a4af15741c1eb3d95 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 7 May 2013 13:28:11 +0200
Subject: [PATCH] ui: Capitalize informative messages.
* guix/ui.scm (show-what-to-build): Capitalize user messages, as per the
GCS (info "(standards) Errors").
---
guix/ui.scm | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/guix/ui.scm b/guix/ui.scm
index 7a37ad2cee9..cd32bfe079d 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -214,24 +214,24 @@ (define* (show-what-to-build store drv
(if dry-run?
(begin
(format (current-error-port)
- (N_ "~:[the following derivation would be built:~%~{ ~a~%~}~;~]"
- "~:[the following derivations would be built:~%~{ ~a~%~}~;~]"
+ (N_ "~:[The following derivation would be built:~%~{ ~a~%~}~;~]"
+ "~:[The following derivations would be built:~%~{ ~a~%~}~;~]"
(length build))
(null? build) build)
(format (current-error-port)
- (N_ "~:[the following file would be downloaded:~%~{ ~a~%~}~;~]"
- "~:[the following files would be downloaded:~%~{ ~a~%~}~;~]"
+ (N_ "~:[The following file would be downloaded:~%~{ ~a~%~}~;~]"
+ "~:[The following files would be downloaded:~%~{ ~a~%~}~;~]"
(length download))
(null? download) download))
(begin
(format (current-error-port)
- (N_ "~:[the following derivation will be built:~%~{ ~a~%~}~;~]"
- "~:[the following derivations will be built:~%~{ ~a~%~}~;~]"
+ (N_ "~:[The following derivation will be built:~%~{ ~a~%~}~;~]"
+ "~:[The following derivations will be built:~%~{ ~a~%~}~;~]"
(length build))
(null? build) build)
(format (current-error-port)
- (N_ "~:[the following file will be downloaded:~%~{ ~a~%~}~;~]"
- "~:[the following files will be downloaded:~%~{ ~a~%~}~;~]"
+ (N_ "~:[The following file will be downloaded:~%~{ ~a~%~}~;~]"
+ "~:[The following files will be downloaded:~%~{ ~a~%~}~;~]"
(length download))
(null? download) download)))
(pair? build)))
--
GitLab