summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-05-27 22:38:15 +0200
committerLudovic Courtès <ludo@gnu.org>2019-05-27 22:47:24 +0200
commit35d1354fe87003dbe19b1b97aa64db1f7d989701 (patch)
tree30b4b1b12f9d7c03a072245f734f49a5a06c2581 /guix
parentc131bea2762ea0dd9e75e9340525dc54cd938647 (diff)
publish: Display the compression method and level in use.
* 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.
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/publish.scm13
1 files changed, 9 insertions, 4 deletions
diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm
index 11e7e985d1..889dbef860 100644
--- a/guix/scripts/publish.scm
+++ b/guix/scripts/publish.scm
@@ -987,10 +987,15 @@ consider using the '--user' option!~%")))
(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)))