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

Enable database connection instrumentation in the server

Browse source
This commit is contained in:
Christopher Baines 2023-01-01 12:43:19 +00:00
parent 05c437d26a
commit d29ef3ed9b
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -27,6 +27,7 @@
#:use-module (ice-9 atomic) #:use-module (ice-9 atomic)
#:use-module (fibers web server) #:use-module (fibers web server)
#:use-module (prometheus) #:use-module (prometheus)
#:use-module (guix-data-service database)
#:use-module (guix-data-service web controller) #:use-module (guix-data-service web controller)
#:use-module (guix-data-service web util) #:use-module (guix-data-service web util)
#:export (start-guix-data-service-web-server)) #:export (start-guix-data-service-web-server))
@ -66,6 +67,8 @@
(define render-metrics (define render-metrics
(make-render-metrics registry)) (make-render-metrics registry))
(%database-metrics-registry registry)
(call-with-error-handling (call-with-error-handling
(lambda () (lambda ()
(run-server (lambda (request body) (run-server (lambda (request body)