[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/06: offload: Warn about the lack of zlib support.
From: |
Ludovic Courtès |
Subject: |
02/06: offload: Warn about the lack of zlib support. |
Date: |
Thu, 1 Dec 2016 22:35:31 +0000 (UTC) |
civodul pushed a commit to branch master
in repository guix.
commit 0b72475301e20521e0dd9fc22881eaab4a7fe170
Author: Ludovic Courtès <address@hidden>
Date: Thu Dec 1 21:49:16 2016 +0100
offload: Warn about the lack of zlib support.
* guix/scripts/offload.scm (guix-offload): Print a warning when
'zlib-support?' returns false.
---
guix/scripts/offload.scm | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index 1d60f65..4f6de0b 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -24,6 +24,7 @@
#:use-module (ssh popen)
#:use-module (ssh dist)
#:use-module (ssh dist node)
+ #:use-module (ssh version)
#:use-module (guix config)
#:use-module (guix records)
#:use-module (guix store)
@@ -634,6 +635,12 @@ allowed on MACHINE."
(and=> (passwd:dir (getpw (getuid)))
(cut setenv "HOME" <>))
+ ;; We rely on protocol-level compression from libssh to optimize large data
+ ;; transfers. Warn if it's missing.
+ (unless (zlib-support?)
+ (warning (_ "Guile-SSH lacks zlib support"))
+ (warning (_ "data transfers will *not* be compressed!")))
+
(match args
((system max-silent-time print-build-trace? build-timeout)
(let ((max-silent-time (string->number max-silent-time))
- branch master updated (4b67098 -> 463fb7d), Ludovic Courtès, 2016/12/01
- 01/06: offload: Remove redundant call to 'topologically-sorted' in 'send-file'., Ludovic Courtès, 2016/12/01
- 03/06: daemon: Buffer data sent to clients by the 'export-path' RPC., Ludovic Courtès, 2016/12/01
- 05/06: offload: Gracefully report connection failures., Ludovic Courtès, 2016/12/01
- 02/06: offload: Warn about the lack of zlib support.,
Ludovic Courtès <=
- 04/06: store: Increase buffering for the '%stderr-write' upcall., Ludovic Courtès, 2016/12/01
- 06/06: offload: Do not abort when a machine is unreachable., Ludovic Courtès, 2016/12/01