~ruther/guix-local: publish: Keep compression disabled when zlib is missing.

053fa76ae7bb579fe5fc9dedfc492411e6804cf0 — Ludovic Courtès 9 years ago 72fb1b2

publish: Keep compression disabled when zlib is missing.

Reported by David Thompson.

* guix/scripts/publish.scm (%options)[--compression]: Warn if LEVEL > 0
and zlib is missing, and return RESULT.

patch browse .tar.gz

1 files changed, 8 insertions(+), 2 deletions(-)

M guix/scripts/publish.scm

M guix/scripts/publish.scm => guix/scripts/publish.scm +8 -2

@@ 127,8 127,14 @@ Publish ~a over HTTP.\n") %store-directory)
                     (0
                      (alist-cons 'compression %no-compression result))
                     (level
-                     (alist-cons 'compression (compression 'gzip level)
-                                 result)))))
+                     (if (zlib-available?)
+                         (alist-cons 'compression
+                                     (compression 'gzip level)
+                                     result)
+                         (begin
+                           (warning (_ "zlib support is missing; \
+compression disabled~%"))
+                           result))))))
         (option '("ttl") #t #f
                 (lambda (opt name arg result)
                   (let ((duration (string->duration arg)))