Add metrics for Guile internal times

This allows detecting when the process crashes or restarts.

1 files changed, 12 insertions, 0 deletions

diff --git a/nar-herder/server.scm b/nar-herder/server.scm
index 578f1c9..ec1b4ae 100644
--- a/nar-herder/server.scm
+++ b/nar-herder/server.scm
@@ -197,6 +197,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)))))
+
   (define requests-total-metric
     (make-counter-metric metrics-registry
                          "server_requests_total"))
@@ -446,6 +457,7 @@
                #f))
       (('GET "metrics")
        (gc-metrics-updater)
+       (guile-time-metrics-updater)
        (increment-request-metric "metrics" "200")
 
        (values (build-response