diff options
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 |