aboutsummaryrefslogtreecommitdiff
path: root/nar-herder/database.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-01-16 19:59:21 +0000
committerChristopher Baines <mail@cbaines.net>2023-01-16 19:59:21 +0000
commit8d219e49c8f1623bdd3622f8c024c40acb0004c2 (patch)
tree9034c40eee4060b4d0b9831c346234193b5a5187 /nar-herder/database.scm
parent337b74cdc3ca89430225e1758156a4ca62e0fdc2 (diff)
downloadnar-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.scm4
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)))