cbaines pushed a commit to branch master
in repository data-service.
commit c18589249f4b78994db6715226334a28ae6bc85f
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Mon Apr 15 13:54:25 2024 +0100
Instrument the resource pool checkout timeouts
---
guix-data-service/web/server.scm | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm
index d0be4e4..4f2a4a0 100644
--- a/guix-data-service/web/server.scm
+++ b/guix-data-service/web/server.scm
@@ -142,6 +142,22 @@
(resource-pool-default-timeout 5))
+ (let ((resource-pool-checkout-failures-metric
+ (make-counter-metric registry
+ "resource_pool_checkout_timeouts_total"
+ #:labels '(pool_name))))
+ (%resource-pool-timeout-handler
+ (lambda (pool proc timeout)
+ (let ((pool-name
+ (cond
+ ((eq? pool (connection-pool)) "normal")
+ ((eq? pool (reserved-connection-pool)) "reserved")
+ (else #f))))
+ (when pool-name
+ (metric-increment
+ resource-pool-checkout-failures-metric
+ #:label-values `((pool_name . ,pool-name))))))))
+
(spawn-fiber
(lambda ()
(with-resource-from-pool (connection-pool) conn
