diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-05-07 13:28:11 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-05-07 13:28:11 +0200 |
| commit | 83e61a73c40755e03571c60a4af15741c1eb3d95 (patch) | |
| tree | c5ff2156bbc7b5e2b2023eeb658e194e858e07d2 | |
| parent | 15f67744fea2dfeb232dd4e8b4b6db8ed802dcd1 (diff) | |
| download | patches-83e61a73c40755e03571c60a4af15741c1eb3d95.tar patches-83e61a73c40755e03571c60a4af15741c1eb3d95.tar.gz | |
ui: Capitalize informative messages.
* guix/ui.scm (show-what-to-build): Capitalize user messages, as per the
GCS (info "(standards) Errors").
| -rw-r--r-- | guix/ui.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 7a37ad2cee..cd32bfe079 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -214,24 +214,24 @@ available for download." (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))) |