aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-04-02 12:02:49 +0100
committerChristopher Baines <mail@cbaines.net>2024-04-02 12:16:15 +0100
commit15d436032a85897c77e4440f20fd0351b76156c0 (patch)
tree6dc3f99b48c273331716101090fc8bf801d2c4b2
parent1dc293c5705efcfe51305d05f92142b9de52af1f (diff)
downloaddata-service-15d436032a85897c77e4440f20fd0351b76156c0.tar
data-service-15d436032a85897c77e4440f20fd0351b76156c0.tar.gz
Move sleep to start of spawn-port-monitoring-fiber
-rw-r--r--guix-data-service/utils.scm4
1 files 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)