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'.
2017-05-01 22:05:29 +02:00 · 2017-05-01 22:05:29 +02:00 · e723178a10
parent 7020a6ab8b
commit e723178a10
1 changed files with 2 additions and 1 deletions
--- 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