cbaines pushed a commit to branch master
in repository data-service.
commit 15d436032a85897c77e4440f20fd0351b76156c0
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Tue Apr 2 12:02:49 2024 +0100
Move sleep to start of spawn-port-monitoring-fiber
---
guix-data-service/utils.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/guix-data-service/utils.scm b/guix-data-service/utils.scm
index 3a1ea95..6cab904 100644
--- a/guix-data-service/utils.scm
+++ b/guix-data-service/utils.scm
@@ -769,6 +769,7 @@ available. Return the resource once PROC has returned."
(spawn-fiber
(lambda ()
(while #t
+ (sleep 20)
(with-exception-handler
(lambda (exn)
(simple-format (current-error-port)
@@ -782,8 +783,7 @@ available. Return the resource once PROC has returned."
(connect sock AF_INET INADDR_LOOPBACK port)
(close-port sock)))
#:timeout 20))
- #:unwind? #t)
- (sleep 20)))))
+ #:unwind? #t)))))
;; Copied from (fibers web server)
(define (call-with-sigint thunk cvar)
