From b42886fc38f9db840db68b15b1406997db1a9a2b Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 30 Jun 2023 19:30:24 +0100
Subject: Add internal time metrics

As this helps monitor for crashes.
---
 guix-qa-frontpage/server.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'guix-qa-frontpage')

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))
-- 
cgit v1.2.3