cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add Guile internal time metrics

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

12
guix-data-service/web/controller.scm
View file

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