From 83d61f681dcb7b8ec94014f57bb7b2ee1a39a377 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 7 Sep 2023 10:29:05 +0100
Subject: Include port metrics

To help identity if there are issues with too many file descriptors.
---
 guix-qa-frontpage/server.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'guix-qa-frontpage')

diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm
index affaa4d..0f2f40f 100644
--- a/guix-qa-frontpage/server.scm
+++ b/guix-qa-frontpage/server.scm
@@ -37,6 +37,7 @@
                 #:select (parse-query-string))
   #:use-module ((guix-build-coordinator utils)
                 #:select (with-time-logging get-gc-metrics-updater
+                          get-port-metrics-updater
                           call-with-delay-logging))
   #:use-module ((guix-build-coordinator utils fibers)
                 #:select (run-server/patched call-with-sigint))
@@ -86,6 +87,9 @@
   (define gc-metrics-updater!
     (get-gc-metrics-updater metrics-registry))
 
+  (define port-metrics-updater!
+    (get-port-metrics-updater metrics-registry))
+
   (define guile-time-metrics-updater
     (let ((internal-real-time
            (make-gauge-metric metrics-registry "guile_internal_real_time"))
@@ -125,6 +129,7 @@
                    (request-uri request))))))
       (('GET "metrics")
        (gc-metrics-updater!)
+       (port-metrics-updater!)
        (guile-time-metrics-updater)
        (list (build-response
               #:code 200
-- 
cgit v1.2.3