diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-05-01 22:05:29 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-05-02 12:32:51 +0200 |
| commit | e723178a10223166a31af0f4dc5c2fe116b3992d (patch) | |
| tree | 9018328f4db3ebdfe4b1eabfc804fcb34a373da9 | |
| parent | 7020a6ab8b8678e148d01814fa8c750743681c4e (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.scm | 3 |
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 |