diff options
Diffstat (limited to 'nar-herder/database.scm')
| -rw-r--r-- | nar-herder/database.scm | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/nar-herder/database.scm b/nar-herder/database.scm index aaca888..1bf03d0 100644 --- a/nar-herder/database.scm +++ b/nar-herder/database.scm @@ -273,7 +273,15 @@ CREATE INDEX cached_narinfo_files_narinfo_id (format (current-error-port) "warning: database read delayed by ~1,2f seconds~%" - seconds-delayed)))))) + seconds-delayed)))) + #:duration-logger + (lambda (duration proc) + (when (> duration 5) + (format + (current-error-port) + "warning: database read took ~1,2f seconds (~a)~%" + duration + proc))))) (writer-thread-channel (make-worker-thread-set @@ -307,7 +315,15 @@ CREATE INDEX cached_narinfo_files_narinfo_id (format (current-error-port) "warning: database write delayed by ~1,2f seconds~%" - seconds-delayed))))))) + seconds-delayed)))) + #:duration-logger + (lambda (duration proc) + (when (> duration 5) + (format + (current-error-port) + "warning: database write took ~1,2f seconds (~a)~%" + duration + proc)))))) (make-database database-file reader-thread-channel |