aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-data-service/web/server.scm4
1 files changed, 4 insertions, 0 deletions
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)))