publish: Improve performance by increasing buffer size.

* guix/scripts/publish.scm (http-write): Increase socket send buffer.
2020-05-19 23:14:30 +02:00 · 2020-05-19 23:14:30 +02:00 · 5e3d169945
parent f523eaba7b
commit 5e3d169945
1 changed files with 1 additions and 0 deletions
--- a/guix/scripts/publish.scm
+++ b/guix/scripts/publish.scm
@ -851,6 +851,7 @@ blocking."
                                                                         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))