summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-05-01 22:05:29 +0200
committerLudovic Courtès <ludo@gnu.org>2017-05-02 12:32:51 +0200
commite723178a10223166a31af0f4dc5c2fe116b3992d (patch)
tree9018328f4db3ebdfe4b1eabfc804fcb34a373da9
parent7020a6ab8b8678e148d01814fa8c750743681c4e (diff)
publish: Use a larger zlib buffer for compression with '--cache'.
* guix/scripts/publish.scm (bake-narinfo+nar): Pass #:buffer-size to 'call-with-gzip-output-port'.
-rw-r--r--guix/scripts/publish.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm
index a589f149d3..8864c2ef8b 100644
--- a/guix/scripts/publish.scm
+++ b/guix/scripts/publish.scm
@@ -455,7 +455,8 @@ requested using POOL."
(call-with-gzip-output-port (open-output-file (string-append nar ".tmp"))
(lambda (port)
(write-file item port))
- #:level (compression-level compression))
+ #:level (compression-level compression)
+ #:buffer-size (* 128 1024))
(rename-file (string-append nar ".tmp") nar))
('none
;; When compression is disabled, we retrieve files directly from the