From 2448b2026bb1f5e0cee6f78b7d3b2e6a30905136 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 2 May 2023 16:11:48 +0200 Subject: Don't log as much about "expected" exceptions in worker threads --- guix-build-coordinator/datastore/sqlite.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'guix-build-coordinator/datastore/sqlite.scm') 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)) -- cgit v1.2.3