09/09: publish: Display the compression method and level in use.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 35d1354fe87003dbe19b1b97aa64db1f7d989701
Author: Ludovic Courtès <address@hidden>
Date:   Mon May 27 22:38:15 2019 +0200

    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.
---
 guix/scripts/publish.scm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm
index 11e7e98..889dbef 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)))