cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow setting the scheduler for a resource pool

Browse source
This commit is contained in:
Christopher Baines 2024-08-14 21:13:42 +01:00
parent 0c08ce069d
commit 7f1aaa5e99
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guix-data-service/utils.scm
View file

@ -110,6 +110,7 @@
(duration-logger (const #f)) (duration-logger (const #f))
destructor destructor
lifetime lifetime
scheduler
(name "unnamed")) (name "unnamed"))
(define (initializer/safe) (define (initializer/safe)
(with-exception-handler (with-exception-handler
@ -342,7 +343,9 @@
available available
waiters waiters
resources-last-used))))) resources-last-used)))))
#:unwind? #t)))) #:unwind? #t)))
(or scheduler
(current-scheduler)))
(make-resource-pool-record name channel))) (make-resource-pool-record name channel)))