From 6374633b9205f60ad0e7ff42bbf39e441ae2f328 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 1 Dec 2016 23:09:34 +0100
Subject: [PATCH] store: Increase buffering for the '%stderr-write' upcall.
* guix/store.scm (process-stderr) <%stderr-write>: Pass #:buffer-size to
'dump-port'.
---
guix/store.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/guix/store.scm b/guix/store.scm
index 689a94c6360..a669011f3a0 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -470,7 +470,8 @@ (define %stderr-error #x63787470) ; "cxtp", error reporting
;; 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))))
--
GitLab