cbaines/guile-prometheus
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve naming for the gc metrics

Browse source
This commit is contained in:
Christopher Baines 2025-11-19 12:31:45 +00:00
parent e63335e64a
commit bf28a0deb9
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
prometheus.scm
View file

@ -555,24 +555,28 @@ This procedure takes care of atomically replacing the file."
(define (get-gc-metrics-updater registry) (define (get-gc-metrics-updater registry)
(define metrics (define metrics
`((gc-time-taken `((gc-time-taken
. ,(make-gauge-metric registry "guile_gc_time_taken")) . ,(make-gauge-metric registry "guile_gc_time_taken_seconds"))
(heap-size (heap-size
. ,(make-gauge-metric registry "guile_heap_size")) . ,(make-gauge-metric registry "guile_heap_bytes"))
(heap-free-size (heap-free-size
. ,(make-gauge-metric registry "guile_heap_free_size")) . ,(make-gauge-metric registry "guile_heap_free_bytes"))
(heap-total-allocated (heap-total-allocated
. ,(make-gauge-metric registry "guile_heap_total_allocated")) . ,(make-gauge-metric registry "guile_heap_total_allocated_bytes"))
(heap-allocated-since-gc (heap-allocated-since-gc
. ,(make-gauge-metric registry "guile_allocated_since_gc")) . ,(make-gauge-metric registry "guile_allocated_since_gc_bytes"))
(protected-objects (protected-objects
. ,(make-gauge-metric registry "guile_gc_protected_objects")) . ,(make-gauge-metric registry "guile_gc_protected_objects_total"))
(gc-times (gc-times
. ,(make-gauge-metric registry "guile_gc_times")))) . ,(make-gauge-metric registry "guile_gc_times_total"))))
(lambda () (lambda ()
(let ((stats (gc-stats))) (let ((stats (gc-stats)))
(for-each (for-each
(match-lambda (match-lambda
(('gc-time-taken . metric)
(metric-set metric
(/ (assq-ref stats 'gc-time-taken)
internal-time-units-per-second)))
((name . metric) ((name . metric)
(let ((value (assq-ref stats name))) (let ((value (assq-ref stats name)))
(metric-set metric value)))) (metric-set metric value))))