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

publish: Display the compression method and level in use.

Browse source 
* guix/scripts/publish.scm (guix-publish): Use 'info' instead of
'format' for the initial message.  When COMPRESSION is true, display the
method and level in use.
This commit is contained in:
Ludovic Courtès 2019-05-27 22:38:15 +02:00
parent c131bea276
commit 35d1354fe8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
guix/scripts/publish.scm
View file

@ -987,10 +987,15 @@ (define (guix-publish . args)
(parameterize ((%public-key public-key)
(%private-key private-key))
(format #t (G_ "publishing ~a on ~a, port ~d~%")
%store-directory
(inet-ntop (sockaddr:fam address) (sockaddr:addr address))
(sockaddr:port address))
(info (G_ "publishing ~a on ~a, port ~d~%")
%store-directory
(inet-ntop (sockaddr:fam address) (sockaddr:addr address))
(sockaddr:port address))
(when compression
(info (G_ "using '~a' compression method, level ~a~%")
(compression-type compression) (compression-level compression)))
(when repl-port
(repl:spawn-server (repl:make-tcp-server-socket #:port repl-port)))