From 2fa4ef7c86ff45dafd5f92441776c10515c7d993 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 20 Apr 2023 11:03:58 +0100 Subject: Correct database read and write delay logging --- guix-qa-frontpage/database.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'guix-qa-frontpage') diff --git a/guix-qa-frontpage/database.scm b/guix-qa-frontpage/database.scm index d924f31..22f8173 100644 --- a/guix-qa-frontpage/database.scm +++ b/guix-qa-frontpage/database.scm @@ -124,7 +124,7 @@ SELECT name FROM sqlite_master WHERE type = 'table' AND name = :name"))) #:delay-logger (let ((delay-metric (make-histogram-metric metrics-registry - "datastore_write_delay_seconds"))) + "datastore_read_delay_seconds"))) (lambda (seconds-delayed) (metric-observe delay-metric ;; TODO exact->inexact to work around @@ -132,11 +132,11 @@ SELECT name FROM sqlite_master WHERE type = 'table' AND name = :name"))) ;; the metric sum will output in the ;; exact form including the /q (exact->inexact seconds-delayed)) - (log-delay "datastore write" seconds-delayed) + (log-delay "datastore read" seconds-delayed) (when (> seconds-delayed 1) (format (current-error-port) - "warning: database write delayed by ~1,2f seconds~%" + "warning: database read delayed by ~1,2f seconds~%" seconds-delayed)))) #:log-exception? (lambda (exn) @@ -162,7 +162,7 @@ SELECT name FROM sqlite_master WHERE type = 'table' AND name = :name"))) #:delay-logger (let ((delay-metric (make-histogram-metric metrics-registry - "datastore_read_delay_seconds"))) + "datastore_write_delay_seconds"))) (lambda (seconds-delayed) (metric-observe delay-metric ;; TODO exact->inexact to work around @@ -170,11 +170,11 @@ SELECT name FROM sqlite_master WHERE type = 'table' AND name = :name"))) ;; the metric sum will output in the ;; exact form including the /q (exact->inexact seconds-delayed)) - (log-delay "datastore read" seconds-delayed) + (log-delay "datastore write" seconds-delayed) (when (> seconds-delayed 1) (format (current-error-port) - "warning: database read delayed by ~1,2f seconds~%" + "warning: database write delayed by ~1,2f seconds~%" seconds-delayed))))))) (make-database database-file -- cgit v1.2.3