publish: Improve performance by increasing buffer size.
* guix/scripts/publish.scm (http-write): Increase socket send buffer.
This commit is contained in:
parent
f523eaba7b
commit
5e3d169945
|
@ -851,6 +851,7 @@ blocking."
|
||||||
size)
|
size)
|
||||||
client))
|
client))
|
||||||
(output (response-port response)))
|
(output (response-port response)))
|
||||||
|
(setsockopt client SOL_SOCKET SO_SNDBUF (* 128 1024))
|
||||||
(if (file-port? output)
|
(if (file-port? output)
|
||||||
(sendfile output input size)
|
(sendfile output input size)
|
||||||
(dump-port input output))
|
(dump-port input output))
|
||||||
|
|
Loading…
Reference in New Issue