cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a metric for the number of revisions

Browse source
This commit is contained in:
Christopher Baines 2020-09-20 18:39:46 +01:00
parent 857ac36711
commit fd3ba489d9
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
guix-data-service/web/controller.scm
View file

@ -85,6 +85,10 @@
(define render-metrics (define render-metrics
(let* ((registry (make-metrics-registry (let* ((registry (make-metrics-registry
#:namespace "guixdataservice")) #:namespace "guixdataservice"))
(revisions-count-metric (make-gauge-metric registry
"revision_count"))
(table-row-estimate-metric (make-gauge-metric registry (table-row-estimate-metric (make-gauge-metric registry
"table_row_estimate" "table_row_estimate"
#:labels '(name))) #:labels '(name)))
@ -116,6 +120,9 @@
#:label-values `((name . ,name))))) #:label-values `((name . ,name)))))
metric-values)) metric-values))
(metric-set revisions-count-metric
(count-guix-revisions conn))
(list (build-response (list (build-response
#:code 200 #:code 200
#:headers '((content-type . (text/plain)))) #:headers '((content-type . (text/plain))))