diff options
author | Christopher Baines <mail@cbaines.net> | 2023-05-02 16:11:48 +0200 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-05-02 16:11:48 +0200 |
commit | 2448b2026bb1f5e0cee6f78b7d3b2e6a30905136 (patch) | |
tree | f831d6025796451d382b99c8cdd59638ec69c531 /guix-build-coordinator/datastore/sqlite.scm | |
parent | dd932a979c23acf3e751e9fe1359126363ec1775 (diff) | |
download | build-coordinator-2448b2026bb1f5e0cee6f78b7d3b2e6a30905136.tar build-coordinator-2448b2026bb1f5e0cee6f78b7d3b2e6a30905136.tar.gz |
Don't log as much about "expected" exceptions in worker threads
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index a37c97c..5fb6408 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -114,7 +114,8 @@ (define* (sqlite-datastore database-uri #:key update-database? - metrics-registry) + metrics-registry + worker-thread-log-exception?) (define database-file (string-drop database-uri (string-length "sqlite://"))) @@ -199,7 +200,8 @@ CREATE TABLE IF NOT EXISTS mem.build_allocation_plan ( (current-error-port) "warning: database write took ~1,2f seconds (~a)~%" duration - proc))))) + proc))) + #:log-exception? worker-thread-log-exception?)) ;; Make sure the worker thread has initialised, and created the in memory ;; tables @@ -260,7 +262,8 @@ CREATE TABLE IF NOT EXISTS mem.build_allocation_plan ( (current-error-port) "warning: database read took ~1,2f seconds (~a)~%" duration - proc))))) + proc))) + #:log-exception? worker-thread-log-exception?)) datastore)) |