From d8e9de4ed604064d77a38b8816b4e708414a97a6 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 16 Jul 2024 20:37:07 +0100
Subject: [PATCH] Use a bigger buffer for requests/responses

As I'm hoping this will increase the data throughput for responses.
---
 guix-data-service/web/server.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm
index 6e91809..f1b061d 100644
--- a/guix-data-service/web/server.scm
+++ b/guix-data-service/web/server.scm
@@ -68,6 +68,10 @@
                (request-method request)
                (uri-path (request-uri request)))))
     #:unwind? #t)
+  ;; The fibers web server uses a 1024 byte buffer, so increase this
+  (setvbuf (request-port request)
+           'block
+           (expt 2 16))
   (apply values
          (let-values (((request-components mime-types)
                        (request->path-components-and-mime-type request)))