diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-10-15 10:45:13 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-10-15 10:45:13 +0200 |
| commit | f141dd205a3f818790de346e6c99d9d898057c05 (patch) | |
| tree | 82c515ca75470ed1e7dba5ccedd06f23774b14a6 | |
| parent | df2d13621f4b2ace33a460746e704115b7b1541e (diff) | |
| download | cuirass-f141dd205a3f818790de346e6c99d9d898057c05.tar cuirass-f141dd205a3f818790de346e6c99d9d898057c05.tar.gz | |
Use with-db-writer-worker-thread/force macro.
* src/cuirass/database.scm (db-register-builds): Use
"with-db-writer-worker-thread/force" macro.
| -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))) |