aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/web
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-06-13 19:07:07 +0100
committerChristopher Baines <mail@cbaines.net>2019-06-13 19:07:07 +0100
commit3a073d402d726252df4a19f8a79dd3d2924fde0a (patch)
treede50da6abb7cc208af25d8848cc72268e4367acc /guix-data-service/web
parent5323f24133c9cf5f50222f085eeb6c6772852e56 (diff)
downloaddata-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.scm7
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)))