From 8d219e49c8f1623bdd3622f8c024c40acb0004c2 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 16 Jan 2023 19:59:21 +0000 Subject: Change the worker threads to allow nesting calls --- nar-herder/database.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'nar-herder/database.scm') 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))) -- cgit v1.2.3