diff options
author | Christopher Baines <mail@cbaines.net> | 2023-05-29 20:25:33 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-05-29 20:25:33 +0100 |
commit | 18a796a9811b57eaf6e46e675d02609ced0bcef1 (patch) | |
tree | f451bf7a317019c8da4431c2aa89d7fbb8a7e9f0 /nar-herder | |
parent | f1ef9b26d41e2d30d03479a74d5608cf69044d38 (diff) | |
download | nar-herder-18a796a9811b57eaf6e46e675d02609ced0bcef1.tar nar-herder-18a796a9811b57eaf6e46e675d02609ced0bcef1.tar.gz |
Make more logging output from the database module atomic
So that it's easier to read.
Diffstat (limited to 'nar-herder')
-rw-r--r-- | nar-herder/database.scm | 44 |
1 files changed, 26 insertions, 18 deletions
diff --git a/nar-herder/database.scm b/nar-herder/database.scm index 1bf03d0..945d1f6 100644 --- a/nar-herder/database.scm +++ b/nar-herder/database.scm @@ -270,18 +270,22 @@ CREATE INDEX cached_narinfo_files_narinfo_id (lambda (seconds-delayed) (metric-observe delay-metric seconds-delayed) (when (> seconds-delayed 1) - (format - (current-error-port) - "warning: database read delayed by ~1,2f seconds~%" - seconds-delayed)))) + (display + (format + #f + "warning: database read delayed by ~1,2f seconds~%" + seconds-delayed) + (current-error-port))))) #:duration-logger (lambda (duration proc) (when (> duration 5) - (format - (current-error-port) - "warning: database read took ~1,2f seconds (~a)~%" - duration - proc))))) + (display + (format + #f + "warning: database read took ~1,2f seconds (~a)~%" + duration + proc) + (current-error-port)))))) (writer-thread-channel (make-worker-thread-set @@ -312,18 +316,22 @@ CREATE INDEX cached_narinfo_files_narinfo_id (lambda (seconds-delayed) (metric-observe delay-metric seconds-delayed) (when (> seconds-delayed 1) - (format - (current-error-port) - "warning: database write delayed by ~1,2f seconds~%" - seconds-delayed)))) + (display + (format + #f + "warning: database write delayed by ~1,2f seconds~%" + seconds-delayed) + (current-error-port))))) #:duration-logger (lambda (duration proc) (when (> duration 5) - (format - (current-error-port) - "warning: database write took ~1,2f seconds (~a)~%" - duration - proc)))))) + (display + (format + #f + "warning: database write took ~1,2f seconds (~a)~%" + duration + proc) + (current-error-port))))))) (make-database database-file reader-thread-channel |