diff options
Diffstat (limited to 'guix-build-coordinator/utils.scm')
-rw-r--r-- | guix-build-coordinator/utils.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index b044718..edcc129 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -88,6 +88,7 @@ running-on-the-hurd? get-gc-metrics-updater + get-port-metrics-updater get-guix-memory-metrics-updater check-locale! @@ -1334,6 +1335,17 @@ again." (metric-set metric value)))) metrics)))) +(define (get-port-metrics-updater registry) + (let ((count-metric + (make-gauge-metric registry "guile_ports_total"))) + (lambda () + (let ((count 0)) + (port-for-each + (lambda _ + (set! count (+ 1 count)))) + + (metric-set count-metric count))))) + (define (get-guix-memory-metrics-updater registry) (define %memoization-tables (@@ (guix memoization) %memoization-tables)) |