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

Improve the implementation of checking for idle resources

Browse source
This commit is contained in:
Christopher Baines 2024-08-18 09:48:08 +01:00
parent 3887435a7d
commit c2ccd81006
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -160,6 +160,13 @@
(checkout-failure-count 0)) (checkout-failure-count 0))
(spawn-fiber (spawn-fiber
(lambda () (lambda ()
(when idle-seconds
(spawn-fiber
(lambda ()
(while #t
(sleep idle-seconds)
(put-message channel '(check-for-idle-resources))))))
(while #t (while #t
(with-exception-handler (with-exception-handler
(lambda (exn) (lambda (exn)
@ -174,15 +181,7 @@
(waiters '()) (waiters '())
(resources-last-used '())) (resources-last-used '()))
(match (if idle-seconds (match (get-message channel)
(perform-operation
(choice-operation
(get-operation channel)
(wrap-operation
;; TODO Do something smarter
(sleep-operation 10)
(const '(check-for-idle-resources)))))
(get-message channel))
(('checkout reply) (('checkout reply)
(if (null? available) (if (null? available)
(if (= (length resources) max-size) (if (= (length resources) max-size)