diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-12-01 23:09:34 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-12-01 23:35:10 +0100 |
| commit | 6374633b9205f60ad0e7ff42bbf39e441ae2f328 (patch) | |
| tree | b66bbe8a4ab1bf3ac869f8557de086d012f560af | |
| parent | 9a8f9f84cc1672c45c2d204d9c234c932a8cb623 (diff) | |
| download | gnu-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'.
| -rw-r--r-- | guix/store.scm | 3 |
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)))) |