~ruther/guix-local: store: Increase buffering for the '%stderr-write' upcall.

6374633b9205f60ad0e7ff42bbf39e441ae2f328 — Ludovic Courtès 9 years ago 9a8f9f8

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

* guix/store.scm (process-stderr) <%stderr-write>: Pass #:buffer-size to
'dump-port'.

patch browse .tar.gz

1 files changed, 2 insertions(+), 1 deletions(-)

M guix/store.scm

M guix/store.scm => guix/store.scm +2 -1

@@ 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))))