diff options
author | Christopher Baines <mail@cbaines.net> | 2023-06-30 19:30:24 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-06-30 19:30:24 +0100 |
commit | b42886fc38f9db840db68b15b1406997db1a9a2b (patch) | |
tree | 15a7e4fd13a2e89c9fb7dd919cb0ac4d615d2b41 /guix-qa-frontpage/server.scm | |
parent | 359cdcbbf6ed107d8b37ce3efbe0cc8c7dd964ab (diff) | |
download | qa-frontpage-b42886fc38f9db840db68b15b1406997db1a9a2b.tar qa-frontpage-b42886fc38f9db840db68b15b1406997db1a9a2b.tar.gz |
Add internal time metrics
As this helps monitor for crashes.
Diffstat (limited to 'guix-qa-frontpage/server.scm')
-rw-r--r-- | guix-qa-frontpage/server.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index 174b2fa..48f03f7 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -79,6 +79,17 @@ (define gc-metrics-updater! (get-gc-metrics-updater metrics-registry)) + (define guile-time-metrics-updater + (let ((internal-real-time + (make-gauge-metric metrics-registry "guile_internal_real_time")) + (internal-run-time + (make-gauge-metric metrics-registry "guile_internal_run_time"))) + (lambda () + (metric-set internal-real-time + (get-internal-real-time)) + (metric-set internal-run-time + (get-internal-run-time))))) + (lambda (request method-and-path-components mime-types @@ -107,6 +118,7 @@ (request-uri request)))))) (('GET "metrics") (gc-metrics-updater!) + (guile-time-metrics-updater) (list (build-response #:code 200 #:headers '((content-type . (text/plain)) |