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

Track some pg_stat metrics

Browse source 
Hopefully this'll help track database things better.
This commit is contained in:
Christopher Baines 2020-10-01 21:43:41 +01:00
parent 404f39a9ee
commit 7f49756bac
2 changed files with 82 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -21,6 +21,7 @@
#:use-module (ice-9 vlist)
#:use-module (ice-9 pretty-print)
#:use-module (ice-9 textual-ports)
#:use-module (ice-9 string-fun)
#:use-module (rnrs bytevectors)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-11)
@ -106,7 +107,28 @@
#:labels '(name)))
(table-toast-bytes-metric (make-gauge-metric registry
"table_toast_bytes"
#:labels '(name))))
#:labels '(name)))
(pg-stat-fields '(seq-scan seq-tup-read idx-scan idx-tup-fetch
n-tup-ins n-tup-upd n-tup-del
n-tup-hot-upd n-live-tup n-dead-tup
n-mod-since-analyze last-vacuum
last-autovacuum last-analyze last-autoanalyze
vacuum-count autovacuum-count
analyze-count autoanalyze-count))
(pg-stat-metrics (map (lambda (field)
(cons
field
(make-gauge-metric
registry
(string-append "pg_stat_"
(string-replace-substring
(symbol->string field)
"-"
"_"))
#:labels '(name))))
pg-stat-fields)))
(lambda (conn)
(let ((metric-values (fetch-high-level-table-size-metrics conn)))
(for-each (match-lambda
@ -129,6 +151,20 @@
(metric-set revisions-count-metric
(count-guix-revisions conn))
(map (lambda (field-values)
(let ((name (assq-ref field-values 'name)))
(for-each
(match-lambda
(('name . _) #f)
((field . value)
(let ((metric (or (assq-ref pg-stat-metrics field)
(error field))))
(metric-set metric
value
#:label-values `((name . ,name))))))
field-values)))
(fetch-pg-stat-user-tables-metrics conn))
(for-each (match-lambda
((repository-label completed count)
(metric-set