me
/
guix
Archived
1
0
Fork 0
Code

ui: Use consistent spacing in `show-what-to-build' messages. 

* guix/ui.scm (show-what-to-build): Use consistent spacing in "the
  following..." messages.
master
Ludovic Courtès 2013-04-27 16:37:09 +02:00
parent c3f0084ad3
commit 14e2afa74b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/ui.scm
View File

@ -213,23 +213,23 @@ available for download."
(begin (begin
(format (current-error-port) (format (current-error-port)
(N_ "~:[the following derivation would be built:~%~{ ~a~%~}~;~]" (N_ "~:[the following derivation would be built:~%~{ ~a~%~}~;~]"
"~:[the following derivations would be built:~%~{ ~a~%~}~;~]" "~:[the following derivations would be built:~%~{ ~a~%~}~;~]"
(length build)) (length build))
(null? build) build) (null? build) build)
(format (current-error-port) (format (current-error-port)
(N_ "~:[the following file would be downloaded:~%~{ ~a~%~}~;~]" (N_ "~:[the following file would be downloaded:~%~{ ~a~%~}~;~]"
"~:[the following files would be downloaded:~%~{ ~a~%~}~;~]" "~:[the following files would be downloaded:~%~{ ~a~%~}~;~]"
(length download)) (length download))
(null? download) download)) (null? download) download))
(begin (begin
(format (current-error-port) (format (current-error-port)
(N_ "~:[the following derivation will be built:~%~{ ~a~%~}~;~]" (N_ "~:[the following derivation will be built:~%~{ ~a~%~}~;~]"
"~:[the following derivations will be built:~%~{ ~a~%~}~;~]" "~:[the following derivations will be built:~%~{ ~a~%~}~;~]"
(length build)) (length build))
(null? build) build) (null? build) build)
(format (current-error-port) (format (current-error-port)
(N_ "~:[the following file will be downloaded:~%~{ ~a~%~}~;~]" (N_ "~:[the following file will be downloaded:~%~{ ~a~%~}~;~]"
"~:[the following files will be downloaded:~%~{ ~a~%~}~;~]" "~:[the following files will be downloaded:~%~{ ~a~%~}~;~]"
(length download)) (length download))
(null? download) download))) (null? download) download)))
(pair? build))) (pair? build)))