publish: Improve performance by increasing buffer size.

* guix/scripts/publish.scm (http-write): Increase socket send buffer.

diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm
index f5b2f5f..a00f08f 100644 (file)
--- 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))