From b0da202e625fc1c51beab67824ed948e6374a12c Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 15 Jan 2025 00:38:26 +0000 Subject: Add proc argument to #:delay-logger --- guix-qa-frontpage/database.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/guix-qa-frontpage/database.scm b/guix-qa-frontpage/database.scm index 4e42c52..06ce3bd 100644 --- a/guix-qa-frontpage/database.scm +++ b/guix-qa-frontpage/database.scm @@ -167,7 +167,7 @@ CREATE TABLE IF NOT EXISTS create_branch_for_issue_logs ( (make-histogram-metric metrics-registry "datastore_read_delay_seconds"))) - (lambda (seconds-delayed) + (lambda (seconds-delayed proc) (metric-observe delay-metric ;; TODO exact->inexact to work around ;; a bug in guile-prometheus where @@ -207,7 +207,7 @@ CREATE TABLE IF NOT EXISTS create_branch_for_issue_logs ( (make-histogram-metric metrics-registry "datastore_write_delay_seconds"))) - (lambda (seconds-delayed) + (lambda (seconds-delayed proc) (metric-observe delay-metric ;; TODO exact->inexact to work around ;; a bug in guile-prometheus where -- cgit v1.2.3