diff options
Diffstat (limited to 'guix-data-service/web/controller.scm')
-rw-r--r-- | guix-data-service/web/controller.scm | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 988145e..ceef532 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -1,6 +1,6 @@ ;;; Guix Data Service -- Information about Guix over time ;;; Copyright © 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> -;;; Copyright © 2019 Christopher Baines <mail@cbaines.net> +;;; Copyright © 2019, 2020, 2021, 2022, 2023 Christopher Baines <mail@cbaines.net> ;;; ;;; This program is free software: you can redistribute it and/or ;;; modify it under the terms of the GNU Affero General Public License @@ -72,6 +72,7 @@ #:use-module (guix-data-service web package controller) #:export (%show-error-details handle-static-assets + make-render-metrics controller)) (define cache-control-default-max-age @@ -87,11 +88,8 @@ target (list functions ...))) -(define render-metrics - (let* ((registry (make-metrics-registry - #:namespace "guixdataservice")) - - (revisions-count-metric (make-gauge-metric registry +(define (make-render-metrics registry) + (let* ((revisions-count-metric (make-gauge-metric registry "revision_count")) (load-new-guix-revision-job-count (make-gauge-metric @@ -558,13 +556,15 @@ (define* (controller request method-and-path-components mime-types body secret-key-base - startup-completed?) + startup-completed? + render-metrics) (define (running-controller-thunk) (actual-controller request method-and-path-components mime-types body - secret-key-base)) + secret-key-base + render-metrics)) (define (startup-controller-thunk) (or @@ -630,7 +630,8 @@ method-and-path-components mime-types body - secret-key-base) + secret-key-base + render-metrics) (define path (uri-path (request-uri request))) |