03/03: Enable database connection instrumentation in the server

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit d29ef3ed9b004b609b0166a4cfc63cbbe209ea3c
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Jan 1 12:43:19 2023 +0000

    Enable database connection instrumentation in the server
---
 guix-data-service/web/server.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm
index 04cd5b7..6570c1a 100644
--- a/guix-data-service/web/server.scm
+++ b/guix-data-service/web/server.scm
@@ -27,6 +27,7 @@
   #:use-module (ice-9 atomic)
   #:use-module (fibers web server)
   #:use-module (prometheus)
+  #:use-module (guix-data-service database)
   #:use-module (guix-data-service web controller)
   #:use-module (guix-data-service web util)
   #:export (start-guix-data-service-web-server))
@@ -66,6 +67,8 @@
   (define render-metrics
     (make-render-metrics registry))
 
+  (%database-metrics-registry registry)
+
   (call-with-error-handling
    (lambda ()
      (run-server (lambda (request body)