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

Use a separate fiber to send pool stats

Browse source 
As the requester might timeout.
This commit is contained in:
Christopher Baines 2024-05-02 20:41:04 +01:00
parent 957727c51a
commit f4be647610
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -244,13 +244,15 @@
(waiters . ,(length waiters)) (waiters . ,(length waiters))
(checkout-failure-count . ,checkout-failure-count)))) (checkout-failure-count . ,checkout-failure-count))))
(spawn-fiber
(lambda ()
(perform-operation (perform-operation
(choice-operation (choice-operation
(wrap-operation (wrap-operation
(put-operation reply stats) (put-operation reply stats)
(const #t)) (const #t))
(wrap-operation (sleep-operation 0.2) (wrap-operation (sleep-operation 1)
(const #f))))) (const #f)))))))
(loop resources (loop resources
available available