diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-11-17 21:10:34 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-11-17 21:10:34 +0000 |
| commit | f38d7cb65a608ef5c8c3299e72b3cde2360f85bb (patch) | |
| tree | 165ed492cafd3426cdedd9e431b46b6dfeb3e6dc /guix-qa-frontpage/database.scm | |
| parent | b32f69a3134bc237276248f7fbd704d73fa18391 (diff) | |
| download | qa-frontpage-f38d7cb65a608ef5c8c3299e72b3cde2360f85bb.tar qa-frontpage-f38d7cb65a608ef5c8c3299e72b3cde2360f85bb.tar.gz | |
Don't log guix-data-service-error's
As these are to be expected.
Diffstat (limited to 'guix-qa-frontpage/database.scm')
| -rw-r--r-- | guix-qa-frontpage/database.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-qa-frontpage/database.scm b/guix-qa-frontpage/database.scm index 7c1a052..ea9ad96 100644 --- a/guix-qa-frontpage/database.scm +++ b/guix-qa-frontpage/database.scm @@ -32,6 +32,7 @@ #:use-module (guix derivations) #:use-module (guix-build-coordinator utils) #:use-module (guix-build-coordinator utils fibers) + #:use-module (guix-qa-frontpage guix-data-service) #:export (setup-database database-optimize @@ -136,7 +137,10 @@ SELECT name FROM sqlite_master WHERE type = 'table' AND name = :name"))) (format (current-error-port) "warning: database write delayed by ~1,2f seconds~%" - seconds-delayed)))))) + seconds-delayed)))) + #:log-exception? + (lambda (exn) + (not (guix-data-service-error? exn))))) (writer-thread-channel (make-worker-thread-channel (lambda () |