This is an automated email from the git hooks/post-receive script.
cbaines pushed a commit to branch master
in repository data-service.
The following commit(s) were added to refs/heads/master by this push:
new f4be647 Use a separate fiber to send pool stats
f4be647 is described below
commit f4be64761073fbe9b1b07c6126104b54358c7bfb
Author: Christopher Baines <[email protected]>
AuthorDate: Thu May 2 20:41:04 2024 +0100
Use a separate fiber to send pool stats
As the requester might timeout.
---
guix-data-service/utils.scm | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/guix-data-service/utils.scm b/guix-data-service/utils.scm
index d01fb5c..a9e8f39 100644
--- a/guix-data-service/utils.scm
+++ b/guix-data-service/utils.scm
@@ -244,13 +244,15 @@
(waiters . ,(length waiters))
(checkout-failure-count .
,checkout-failure-count))))
- (perform-operation
- (choice-operation
- (wrap-operation
- (put-operation reply stats)
- (const #t))
- (wrap-operation (sleep-operation 0.2)
- (const #f)))))
+ (spawn-fiber
+ (lambda ()
+ (perform-operation
+ (choice-operation
+ (wrap-operation
+ (put-operation reply stats)
+ (const #t))
+ (wrap-operation (sleep-operation 1)
+ (const #f)))))))
(loop resources
available
