publish: Improve performance by increasing buffer size.

* guix/scripts/publish.scm (http-write): Increase socket send buffer.
This commit is contained in:
Ricardo Wurmus 2020-05-19 23:14:30 +02:00
parent f523eaba7b
commit 5e3d169945
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -851,6 +851,7 @@ (define (http-write server client response body)
size)
client))
(output (response-port response)))
(setsockopt client SOL_SOCKET SO_SNDBUF (* 128 1024))
(if (file-port? output)
(sendfile output input size)
(dump-port input output))