store: Increase buffering for the '%stderr-write' upcall.

* guix/store.scm (process-stderr) <%stderr-write>: Pass #:buffer-size to 'dump-port'.
2016-12-01 23:09:34 +01:00 · 2016-12-01 23:09:34 +01:00 · 6374633b92
parent 9a8f9f84cc
commit 6374633b92
1 changed files with 2 additions and 1 deletions
--- 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))))