diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-06-13 19:07:07 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-06-13 19:07:07 +0100 |
| commit | 3a073d402d726252df4a19f8a79dd3d2924fde0a (patch) | |
| tree | de50da6abb7cc208af25d8848cc72268e4367acc /guix-data-service/web | |
| parent | 5323f24133c9cf5f50222f085eeb6c6772852e56 (diff) | |
| download | data-service-3a073d402d726252df4a19f8a79dd3d2924fde0a.tar data-service-3a073d402d726252df4a19f8a79dd3d2924fde0a.tar.gz | |
Display the request in one go
Otherwise, concurrent requests can cause the output to be interleaved.
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/server.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm index 83b01c8..695558c 100644 --- a/guix-data-service/web/server.scm +++ b/guix-data-service/web/server.scm @@ -37,9 +37,10 @@ body))) (define (handler request body controller) - (format #t "~a ~a\n" - (request-method request) - (uri-path (request-uri request))) + (display + (format #f "~a ~a\n" + (request-method request) + (uri-path (request-uri request)))) (apply values (run-controller controller request body))) |