From 6bbb0911e3b5df4efbeec12fa5207a0197e885fd Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 13 May 2021 23:07:18 +0100
Subject: Buffer the network socket used for streaming http requests

As this helps improve throughput.
---
 guix-build-coordinator/utils.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index 2b0b34c..f35e9f1 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -267,6 +267,7 @@ upcoming chunk."
            #:port port)))
 
     (set-port-encoding! port "ISO-8859-1")
+    (setvbuf port 'block (expt 2 20))
     (with-exception-handler
         (lambda (exp)
           (simple-format #t "error: PUT ~A: ~A\n" (uri-path uri) exp)
-- 
cgit v1.2.3