aboutsummaryrefslogtreecommitdiff
path: root/guix/store.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-12-01 23:09:34 +0100
committerLudovic Courtès <ludo@gnu.org>2016-12-01 23:35:10 +0100
commit6374633b9205f60ad0e7ff42bbf39e441ae2f328 (patch)
treeb66bbe8a4ab1bf3ac869f8557de086d012f560af /guix/store.scm
parent9a8f9f84cc1672c45c2d204d9c234c932a8cb623 (diff)
downloadgnu-guix-6374633b9205f60ad0e7ff42bbf39e441ae2f328.tar
gnu-guix-6374633b9205f60ad0e7ff42bbf39e441ae2f328.tar.gz
store: Increase buffering for the '%stderr-write' upcall.
* guix/store.scm (process-stderr) <%stderr-write>: Pass #:buffer-size to 'dump-port'.
Diffstat (limited to 'guix/store.scm')
-rw-r--r--guix/store.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/store.scm b/guix/store.scm
index 689a94c636..a669011f3a 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -470,7 +470,8 @@ encoding conversion errors."
;; Write a byte stream to USER-PORT.
(let* ((len (read-int p))
(m (modulo len 8)))
- (dump-port p user-port len)
+ (dump-port p user-port len
+ #:buffer-size (if (<= len 16384) 16384 65536))
(unless (zero? m)
;; Consume padding, as for strings.
(get-bytevector-n p (- 8 m))))