diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-08-14 21:13:42 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-08-14 21:13:42 +0100 |
| commit | 7f1aaa5e996ecdc1b6bfe17ad81ee9297c824744 (patch) | |
| tree | bffc4a752101389f086c75d04422e7c79e6e8f38 | |
| parent | 0c08ce069dd08e2a73aadc4c9ee3a7900d6ef34a (diff) | |
| download | data-service-7f1aaa5e996ecdc1b6bfe17ad81ee9297c824744.tar data-service-7f1aaa5e996ecdc1b6bfe17ad81ee9297c824744.tar.gz | |
Allow setting the scheduler for a resource pool
| -rw-r--r-- | guix-data-service/utils.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix-data-service/utils.scm b/guix-data-service/utils.scm index 9926478..697d6df 100644 --- a/guix-data-service/utils.scm +++ b/guix-data-service/utils.scm @@ -110,6 +110,7 @@ (duration-logger (const #f)) destructor lifetime + scheduler (name "unnamed")) (define (initializer/safe) (with-exception-handler @@ -342,7 +343,9 @@ available waiters resources-last-used))))) - #:unwind? #t)))) + #:unwind? #t))) + (or scheduler + (current-scheduler))) (make-resource-pool-record name channel))) |