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))