diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-07-16 20:37:07 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-07-16 20:37:07 +0100 |
| commit | d8e9de4ed604064d77a38b8816b4e708414a97a6 (patch) | |
| tree | 2cb5202c5543aa78aed714116108c5a458d3e707 /guix-data-service/web/server.scm | |
| parent | 5f8cd2dc5642ce99a535ea6b3001a359096d6975 (diff) | |
| download | data-service-d8e9de4ed604064d77a38b8816b4e708414a97a6.tar data-service-d8e9de4ed604064d77a38b8816b4e708414a97a6.tar.gz | |
Use a bigger buffer for requests/responses
As I'm hoping this will increase the data throughput for responses.
Diffstat (limited to 'guix-data-service/web/server.scm')
| -rw-r--r-- | guix-data-service/web/server.scm | 4 |
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))) |