summary refs log tree commit diff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2020-05-19 23:14:30 +0200
committerRicardo Wurmus <rekado@elephly.net>2020-05-19 23:15:41 +0200
commit5e3d169945935b53325e6b738a307ba286751259 (patch)
tree469638b593618d0a578eb69f3c3c15e9c4a89eb5
parentf523eaba7b5460937a230a824550243d75e5f1dc (diff)
downloadguix-5e3d169945935b53325e6b738a307ba286751259.tar.gz
publish: Improve performance by increasing buffer size.
* guix/scripts/publish.scm (http-write): Increase socket send buffer.
-rw-r--r--guix/scripts/publish.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm
index f5b2f5fd4e..a00f08f9d9 100644
--- 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))