01/09: publish: Use a larger zlib buffer for compression with '--cache'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit e723178a10223166a31af0f4dc5c2fe116b3992d
Author: Ludovic Courtès <address@hidden>
Date:   Mon May 1 22:05:29 2017 +0200

    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(-)

diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm
index a589f14..8864c2e 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