diff options
Diffstat (limited to 'guix-build-coordinator/datastore')
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 4380c57..ff30ac0 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -268,17 +268,17 @@ PRAGMA optimize;"))))) (define-method (datastore-optimize (datastore <sqlite-datastore>)) - (call-with-worker-thread - (slot-ref datastore 'worker-writer-thread-channel) - (lambda (db) - (retry-on-error - (lambda () + (retry-on-error + (lambda () + (call-with-worker-thread + (slot-ref datastore 'worker-writer-thread-channel) + (lambda (db) (db-optimize db (slot-ref datastore 'database-file) - (slot-ref datastore 'metrics-registry))) - #:times 10 - #:delay 0)))) + (slot-ref datastore 'metrics-registry))))) + #:times 10 + #:delay 0)) (define-method (datastore-spawn-fibers (datastore <sqlite-datastore>)) |