branch master updated: Add Guile internal time metrics

[Christopher Baines]

This is an automated email from the git hooks/post-receive script.

cbaines pushed a commit to branch master
in repository data-service.

The following commit(s) were added to refs/heads/master by this push:
     new 61f6619  Add Guile internal time metrics
61f6619 is described below

commit 61f66193138322f724fc91ba2e89165574b26009
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun May 14 22:45:19 2023 +0100

    Add Guile internal time metrics
    
    As this will help identify when the service restarts.
---
 guix-data-service/web/controller.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/guix-data-service/web/controller.scm 
b/guix-data-service/web/controller.scm
index efdd92c..2b8d2b5 100644
--- a/guix-data-service/web/controller.scm
+++ b/guix-data-service/web/controller.scm
@@ -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