diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-05-27 22:38:15 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-05-27 22:47:24 +0200 |
| commit | 35d1354fe87003dbe19b1b97aa64db1f7d989701 (patch) | |
| tree | 30b4b1b12f9d7c03a072245f734f49a5a06c2581 | |
| parent | c131bea2762ea0dd9e75e9340525dc54cd938647 (diff) | |
| download | gnu-guix-35d1354fe87003dbe19b1b97aa64db1f7d989701.tar gnu-guix-35d1354fe87003dbe19b1b97aa64db1f7d989701.tar.gz | |
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.
| -rw-r--r-- | guix/scripts/publish.scm | 13 |
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))) |