Use a bigger buffer for requests/responses

As I'm hoping this will increase the data throughput for responses.
This commit is contained in:
Christopher Baines 2024-07-16 20:37:07 +01:00
parent 5f8cd2dc56
commit d8e9de4ed6

View file

@ -68,6 +68,10 @@
(request-method request) (request-method request)
(uri-path (request-uri request))))) (uri-path (request-uri request)))))
#:unwind? #t) #:unwind? #t)
;; The fibers web server uses a 1024 byte buffer, so increase this
(setvbuf (request-port request)
'block
(expt 2 16))
(apply values (apply values
(let-values (((request-components mime-types) (let-values (((request-components mime-types)
(request->path-components-and-mime-type request))) (request->path-components-and-mime-type request)))