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 (spawn-fiber
(lambda () (lambda ()
(while #t (while #t
(sleep 20)
(with-exception-handler (with-exception-handler
(lambda (exn) (lambda (exn)
(simple-format (current-error-port) (simple-format (current-error-port)
@ -782,8 +783,7 @@ available. Return the resource once PROC has returned."
(connect sock AF_INET INADDR_LOOPBACK port) (connect sock AF_INET INADDR_LOOPBACK port)
(close-port sock))) (close-port sock)))
#:timeout 20)) #:timeout 20))
#:unwind? #t) #:unwind? #t)))))
(sleep 20)))))
;; Copied from (fibers web server) ;; Copied from (fibers web server)
(define (call-with-sigint thunk cvar) (define (call-with-sigint thunk cvar)