diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-09-11 13:24:57 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-09-12 13:11:00 +0100 |
| commit | 5997318263207a54c57f39357d0c261fd2d83c0f (patch) | |
| tree | ea6c06f08e21c174068d0c15c2cb7a42885431a4 /nar-herder/database.scm | |
| parent | a9f3ed8769e22b134ef8e216057dd23b006eb95c (diff) | |
| download | nar-herder-5997318263207a54c57f39357d0c261fd2d83c0f.tar nar-herder-5997318263207a54c57f39357d0c261fd2d83c0f.tar.gz | |
Log the procedure delayed for database operations
Diffstat (limited to 'nar-herder/database.scm')
| -rw-r--r-- | nar-herder/database.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/nar-herder/database.scm b/nar-herder/database.scm index 186ef6c..2bac86f 100644 --- a/nar-herder/database.scm +++ b/nar-herder/database.scm @@ -270,13 +270,14 @@ CREATE INDEX cached_narinfo_files_narinfo_id (make-histogram-metric metrics-registry "database_read_delay_seconds"))) - (lambda (seconds-delayed) + (lambda (seconds-delayed proc) (metric-observe delay-metric seconds-delayed) (when (> seconds-delayed 1) (display (format #f - "warning: database read delayed by ~1,2f seconds~%" + "warning: database read (~a) delayed by ~1,2f seconds~%" + proc seconds-delayed) (current-error-port))))) #:duration-logger @@ -318,13 +319,14 @@ CREATE INDEX cached_narinfo_files_narinfo_id (make-histogram-metric metrics-registry "database_write_delay_seconds"))) - (lambda (seconds-delayed) + (lambda (seconds-delayed proc) (metric-observe delay-metric seconds-delayed) (when (> seconds-delayed 1) (display (format #f - "warning: database write delayed by ~1,2f seconds~%" + "warning: database write (~a) delayed by ~1,2f seconds~%" + proc seconds-delayed) (current-error-port))))) #:duration-logger |