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.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.scm')
-rw-r--r-- | guix-build-coordinator/datastore.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/guix-build-coordinator/datastore.scm b/guix-build-coordinator/datastore.scm index a12c41a..4af90e0 100644 --- a/guix-build-coordinator/datastore.scm +++ b/guix-build-coordinator/datastore.scm @@ -97,12 +97,16 @@ (define* (database-uri->datastore database #:key - metrics-registry) + metrics-registry + worker-thread-log-exception?) (cond ((string-prefix? "pg://" database) (postgresql-datastore database)) ((string-prefix? "sqlite://" database) - (sqlite-datastore database #:metrics-registry metrics-registry)) + (sqlite-datastore database + #:metrics-registry metrics-registry + #:worker-thread-log-exception? + worker-thread-log-exception?)) (else (error (simple-format #f "Unknown database ~A" database))))) |