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

Fix string metric values

Browse source
This commit is contained in:
Christopher Baines 2025-11-20 15:43:16 +00:00
parent eb9ec4acd0
commit 75f62f351f
1 changed files with 23 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

46
guix-data-service/metrics.scm
View file

@ -107,25 +107,25 @@ WHERE relname NOT LIKE 'package_derivations_by_guix_revision_range_git_branch_%'
last-vacuum last-autovacuum last-analyze last-autoanalyze last-vacuum last-autovacuum last-analyze last-autoanalyze
vacuum-count autovacuum-count analyze-count autoanalyze-count) vacuum-count autovacuum-count analyze-count autoanalyze-count)
`((name . ,relname) `((name . ,relname)
(seq-scan . ,seq-scan) (seq-scan . ,(string->number seq-scan))
(seq-tup-read . ,seq-tup-read) (seq-tup-read . ,(string->number seq-tup-read))
(idx-scan . ,idx-scan) (idx-scan . ,(string->number idx-scan))
(idx-tup-fetch . ,idx-tup-fetch) (idx-tup-fetch . ,(string->number idx-tup-fetch))
(n-tup-ins . ,n-tup-ins) (n-tup-ins . ,(string->number n-tup-ins))
(n-tup-upd . ,n-tup-upd) (n-tup-upd . ,(string->number n-tup-upd))
(n-tup-del . ,n-tup-del) (n-tup-del . ,(string->number n-tup-del))
(n-tup-hot-upd . ,n-tup-hot-upd) (n-tup-hot-upd . ,(string->number n-tup-hot-upd))
(n-live-tup . ,n-live-tup) (n-live-tup . ,(string->number n-live-tup))
(n-dead-tup . ,n-dead-tup) (n-dead-tup . ,(string->number n-dead-tup))
(n-mod-since-analyze . ,n-mod-since-analyze) (n-mod-since-analyze . ,(string->number n-mod-since-analyze))
(last-vacuum . ,last-vacuum) (last-vacuum . ,(string->number last-vacuum))
(last-autovacuum . ,last-autovacuum) (last-autovacuum . ,(string->number last-autovacuum))
(last-analyze . ,last-analyze) (last-analyze . ,(string->number last-analyze))
(last-autoanalyze . ,last-autoanalyze) (last-autoanalyze . ,(string->number last-autoanalyze))
(vacuum-count . ,vacuum-count) (vacuum-count . ,(string->number vacuum-count))
(autovacuum-count . ,autovacuum-count) (autovacuum-count . ,(string->number autovacuum-count))
(analyze-count . ,analyze-count) (analyze-count . ,(string->number analyze-count))
(autoanalyze-count . ,autoanalyze-count)))) (autoanalyze-count . ,(string->number autoanalyze-count)))))
(exec-query conn query))) (exec-query conn query)))
(define (fetch-pg-stat-user-indexes-metrics conn) (define (fetch-pg-stat-user-indexes-metrics conn)
@ -153,10 +153,10 @@ WHERE pg_stat_user_indexes.schemaname = 'guix_data_service'
`((name . ,indexname) `((name . ,indexname)
(table-name . ,tablename) (table-name . ,tablename)
(tablespace . ,tablespace) (tablespace . ,tablespace)
(idx-scan . ,idx_scan) (idx-scan . ,(string->number idx_scan))
(idx-tup-read . ,idx_tup_read) (idx-tup-read . ,(string->number idx_tup_read))
(idx-tup-fetch . ,idx_tup_fetch) (idx-tup-fetch . ,(string->number idx_tup_fetch))
(bytes . ,size_in_bytes)))) (bytes . ,(string->number size_in_bytes)))))
(exec-query conn query))) (exec-query conn query)))
(define (fetch-pg-stats-metrics conn) (define (fetch-pg-stats-metrics conn)