diff options
author | Christopher Baines <mail@cbaines.net> | 2023-01-16 19:59:21 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-01-16 19:59:21 +0000 |
commit | 8d219e49c8f1623bdd3622f8c024c40acb0004c2 (patch) | |
tree | 9034c40eee4060b4d0b9831c346234193b5a5187 /nar-herder/database.scm | |
parent | 337b74cdc3ca89430225e1758156a4ca62e0fdc2 (diff) | |
download | nar-herder-8d219e49c8f1623bdd3622f8c024c40acb0004c2.tar nar-herder-8d219e49c8f1623bdd3622f8c024c40acb0004c2.tar.gz |
Change the worker threads to allow nesting calls
Diffstat (limited to 'nar-herder/database.scm')
-rw-r--r-- | nar-herder/database.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/nar-herder/database.scm b/nar-herder/database.scm index 028fb50..49c0392 100644 --- a/nar-herder/database.scm +++ b/nar-herder/database.scm @@ -196,7 +196,7 @@ CREATE INDEX cached_narinfo_files_narinfo_id (sqlite-close db)) (let ((reader-thread-channel - (make-worker-thread-channel + (make-worker-thread-set (lambda () (let ((db (db-open database-file #:write? #f))) @@ -225,7 +225,7 @@ CREATE INDEX cached_narinfo_files_narinfo_id seconds-delayed)))))) (writer-thread-channel - (make-worker-thread-channel + (make-worker-thread-set (lambda () (let ((db (db-open database-file))) |