Add Guile internal time metrics

As this will help identify when the service restarts.
This commit is contained in:
Christopher Baines 2023-05-14 22:45:19 +01:00
parent bbacbcd2aa
commit 61f6619313
1 changed files with 12 additions and 0 deletions

View File

@ -173,6 +173,17 @@
(gc-metrics-updater
(get-gc-metrics-updater registry)))
(define guile-time-metrics-updater
(let ((internal-real-time
(make-gauge-metric registry "guile_internal_real_time"))
(internal-run-time
(make-gauge-metric 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 ()
(letpar& ((metric-values
(with-thread-postgresql-connection
@ -279,6 +290,7 @@
load-new-guix-revision-job-metrics)
(gc-metrics-updater)
(guile-time-metrics-updater)
(list (build-response
#:code 200