cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Display the request in one go

Browse source 
Otherwise, concurrent requests can cause the output to be interleaved.
This commit is contained in:
Christopher Baines 2019-06-13 19:07:07 +01:00
parent 5323f24133
commit 3a073d402d
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
guix-data-service/web/server.scm
View file

@ -37,9 +37,10 @@
body))) body)))
(define (handler request body controller) (define (handler request body controller)
(format #t "~a ~a\n" (display
(request-method request) (format #f "~a ~a\n"
(uri-path (request-uri request))) (request-method request)
(uri-path (request-uri request))))
(apply values (apply values
(run-controller controller request body))) (run-controller controller request body)))