From 3a073d402d726252df4a19f8a79dd3d2924fde0a Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 13 Jun 2019 19:07:07 +0100 Subject: Display the request in one go Otherwise, concurrent requests can cause the output to be interleaved. --- guix-data-service/web/server.scm | 7 ++++--- 1 file 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))) -- cgit v1.2.3