diff options
Diffstat (limited to 'guix-data-service/web/server.scm')
| -rw-r--r-- | guix-data-service/web/server.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm index 7acfb2b..ea14825 100644 --- a/guix-data-service/web/server.scm +++ b/guix-data-service/web/server.scm @@ -35,7 +35,9 @@ #: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)) + #:export (%guix-data-service-metrics-registry + + start-guix-data-service-web-server)) (define (check-startup-completed startup-completed) (if (atomic-box-ref startup-completed) @@ -64,6 +66,9 @@ (check-startup-completed startup-completed) render-metrics)))) +(define %guix-data-service-metrics-registry + (make-parameter #f)) + (define* (start-guix-data-service-web-server port host secret-key-base startup-completed #:key postgresql-statement-timeout @@ -73,6 +78,8 @@ (%database-metrics-registry registry) + (%guix-data-service-metrics-registry registry) + (let ((finished? (make-condition))) (call-with-sigint (lambda () |