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

Move sleep to start of spawn-port-monitoring-fiber

Browse source
This commit is contained in:
Christopher Baines 2024-04-02 12:02:49 +01:00
parent 1dc293c570
commit 15d436032a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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)