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

Instrument requests

Browse source
This commit is contained in:
Christopher Baines 2024-04-26 09:46:10 +01:00
parent 824e731a5c
commit 6201099003
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -165,7 +165,9 @@
conn)))) conn))))
(let ((render-metrics (let ((render-metrics
(make-render-metrics registry))) (make-render-metrics registry))
(requests-metric
(make-counter-metric registry "requests_total")))
(with-exception-handler (with-exception-handler
(lambda (exn) (lambda (exn)
@ -181,6 +183,8 @@ port. Also, the port used can be changed by passing the --port option.\n"
(lambda () (lambda ()
(run-server/patched (run-server/patched
(lambda (request body) (lambda (request body)
(metric-increment requests-metric)
(handler request finished? body controller (handler request finished? body controller
secret-key-base secret-key-base
startup-completed startup-completed