From 5e3d169945935b53325e6b738a307ba286751259 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 19 May 2020 23:14:30 +0200 Subject: [PATCH] publish: Improve performance by increasing buffer size. * guix/scripts/publish.scm (http-write): Increase socket send buffer. --- guix/scripts/publish.scm | 1 + 1 file changed, 1 insertion(+) 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))