From 053fa76ae7bb579fe5fc9dedfc492411e6804cf0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 19 Jul 2016 16:46:16 +0200
Subject: [PATCH] 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.
---
 guix/scripts/publish.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm
index 3e1ecb9d1b..3baceaf645 100644
--- a/guix/scripts/publish.scm
+++ b/guix/scripts/publish.scm
@@ -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)))