diff options
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 |