From e723178a10223166a31af0f4dc5c2fe116b3992d Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 1 May 2017 22:05:29 +0200 Subject: 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'. --- guix/scripts/publish.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'guix') 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 -- cgit v1.2.3