ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 14:28:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

package: Fix spacing in user messages.

Browse source 
* guix/scripts/package.scm (guix-package)[process-actions]: Fix spacing.
This commit is contained in:
Ludovic Courtès 2013-05-07 13:23:30 +02:00
parent 6ba3900934
commit 15f67744fe
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/scripts/package.scm
View file

@ -653,17 +653,17 @@ (define (show-what-to-remove/install remove install dry-run?)
(match install (match install
(((name version _ path _) ..1) (((name version _ path _) ..1)
(let ((len (length name)) (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))) name version path)))
(if dry-run? (if dry-run?
(format (current-error-port) (format (current-error-port)
(N_ "The following package would be installed:~% ~{~a~%~}~%" (N_ "The following package would be installed:~%~{~a~%~}~%"
"The following packages would be installed:~% ~{~a~%~}~%" "The following packages would be installed:~%~{~a~%~}~%"
len) len)
install) install)
(format (current-error-port) (format (current-error-port)
(N_ "The following package will be installed:~% ~{~a~%~}~%" (N_ "The following package will be installed:~%~{~a~%~}~%"
"The following packages will be installed:~% ~{~a~%~}~%" "The following packages will be installed:~%~{~a~%~}~%"
len) len)
install)))) install))))
(_ #f))) (_ #f)))