diff options
| -rw-r--r-- | src/cuirass/database.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 31e65f6..fc3eb00 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -736,8 +736,7 @@ path) VALUES (" ;; Use the database worker dedicated to write queries. We don't want this ;; query to be queued as it is already a quite large transaction by itself, ;; so pass the #:FORCE? option. - (with-db-writer-worker-thread db - #:force? #t + (with-db-writer-worker-thread/force db (log-message "Registering builds for evaluation ~a." eval-id) (sqlite-exec db "BEGIN TRANSACTION;") (let ((derivations (filter-map register jobs))) |