diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-04-22 14:52:43 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-04-22 14:52:43 +0100 |
| commit | 249b90e2430b474484356edb83b0953c8bf38f51 (patch) | |
| tree | efb03db117cd897adb1b87cee9688afd91391b79 /guix-build-coordinator/datastore | |
| parent | 72898f0ae5f85566e220ba0d2caaada608b1f41e (diff) | |
| download | build-coordinator-249b90e2430b474484356edb83b0953c8bf38f51.tar build-coordinator-249b90e2430b474484356edb83b0953c8bf38f51.tar.gz | |
Tweak the busy timeouts for reading and writing
I'm not sure this will necessarily help with the database locking situation,
but it's worth a try.
Diffstat (limited to 'guix-build-coordinator/datastore')
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 4ad42ed..7a7cb1b 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -140,7 +140,7 @@ (lambda () (let ((db (db-open database-file))) - (sqlite-exec db "PRAGMA busy_timeout = 1000;") + (sqlite-exec db "PRAGMA busy_timeout = 5000;") (sqlite-exec db "PRAGMA synchronous = NORMAL;") (sqlite-exec db "PRAGMA temp_store = MEMORY;") (sqlite-exec db "PRAGMA foreign_keys = ON;") @@ -183,7 +183,7 @@ (let ((db (db-open database-file #:write? #f))) (sqlite-exec db "PRAGMA temp_store = MEMORY;") - (sqlite-exec db "PRAGMA busy_timeout = 5000;") + (sqlite-exec db "PRAGMA busy_timeout = 4000;") (sqlite-exec db "PRAGMA cache_size = -16000;") (list db))) #:destructor |