diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-04-02 12:02:49 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-02 12:16:15 +0100 |
| commit | 15d436032a85897c77e4440f20fd0351b76156c0 (patch) | |
| tree | 6dc3f99b48c273331716101090fc8bf801d2c4b2 | |
| parent | 1dc293c5705efcfe51305d05f92142b9de52af1f (diff) | |
| download | data-service-15d436032a85897c77e4440f20fd0351b76156c0.tar data-service-15d436032a85897c77e4440f20fd0351b76156c0.tar.gz | |
Move sleep to start of spawn-port-monitoring-fiber
| -rw-r--r-- | guix-data-service/utils.scm | 4 |
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) |