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 metrics
`((gc-time-taken
. ,(make-gauge-metric registry "guile_gc_time_taken"))
. ,(make-gauge-metric registry "guile_gc_time_taken_seconds"))
(heap-size
. ,(make-gauge-metric registry "guile_heap_size"))
. ,(make-gauge-metric registry "guile_heap_bytes"))
(heap-free-size
. ,(make-gauge-metric registry "guile_heap_free_size"))
. ,(make-gauge-metric registry "guile_heap_free_bytes"))
(heap-total-allocated
. ,(make-gauge-metric registry "guile_heap_total_allocated"))
. ,(make-gauge-metric registry "guile_heap_total_allocated_bytes"))
(heap-allocated-since-gc
. ,(make-gauge-metric registry "guile_allocated_since_gc"))
. ,(make-gauge-metric registry "guile_allocated_since_gc_bytes"))
(protected-objects
. ,(make-gauge-metric registry "guile_gc_protected_objects"))
. ,(make-gauge-metric registry "guile_gc_protected_objects_total"))
(gc-times
. ,(make-gauge-metric registry "guile_gc_times"))))
. ,(make-gauge-metric registry "guile_gc_times_total"))))
(lambda ()
(let ((stats (gc-stats)))
(for-each
(match-lambda
(('gc-time-taken . metric)
(metric-set metric
(/ (assq-ref stats 'gc-time-taken)
internal-time-units-per-second)))
((name . metric)
(let ((value (assq-ref stats name)))
(metric-set metric value))))