diff options
author | Christopher Baines <mail@cbaines.net> | 2023-09-07 10:29:05 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-09-07 10:29:05 +0100 |
commit | 83d61f681dcb7b8ec94014f57bb7b2ee1a39a377 (patch) | |
tree | 41c08c29cce1c7997a32539db23d3c5a60b68841 /guix-qa-frontpage/server.scm | |
parent | d555954cdd9e6c4da8af4ff3e6877ccdbffe8e88 (diff) | |
download | qa-frontpage-83d61f681dcb7b8ec94014f57bb7b2ee1a39a377.tar qa-frontpage-83d61f681dcb7b8ec94014f57bb7b2ee1a39a377.tar.gz |
Include port metrics
To help identity if there are issues with too many file descriptors.
Diffstat (limited to 'guix-qa-frontpage/server.scm')
-rw-r--r-- | guix-qa-frontpage/server.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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 |