cbaines pushed a commit to branch master
in repository data-service.
commit d8e9de4ed604064d77a38b8816b4e708414a97a6
Author: Christopher Baines <[email protected]>
AuthorDate: Tue Jul 16 20:37:07 2024 +0100
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)))
