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.

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)))