diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-01-15 00:38:26 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-01-15 00:38:26 +0000 |
| commit | b0da202e625fc1c51beab67824ed948e6374a12c (patch) | |
| tree | f630f161ddf22b74165caba194f2c426ca80e2d1 | |
| parent | 39d32837beb9eda5a1a301691d8bb86a0edeb6ad (diff) | |
| download | qa-frontpage-b0da202e625fc1c51beab67824ed948e6374a12c.tar qa-frontpage-b0da202e625fc1c51beab67824ed948e6374a12c.tar.gz | |
Add proc argument to #:delay-logger
| -rw-r--r-- | guix-qa-frontpage/database.scm | 4 |
1 files 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 |