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

Warn about long running requests

Browse source
This commit is contained in:
Christopher Baines 2025-07-01 12:55:56 +01:00
parent 2bb5f4ccc4
commit 61780fe7ea
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -361,6 +361,21 @@ port. Also, the port used can be changed by passing the --port option.\n"
render-metrics)))))
#:unwind? #t))
#:connection-buffer-size (expt 2 14)
#:post-request-hook
(lambda* (request #:key read-request-time
response-end-time
#:allow-other-keys)
(let ((request-duration
(/ (- response-end-time
read-request-time)
internal-time-units-per-second)))
(when (> request-duration
30)
(format
(current-error-port)
"warning: ~a took ~f seconds to complete\n"
(uri-path (request-uri request))
request-duration))))
#:host host
#:port port)))
#:unwind? #t)))