From 15d436032a85897c77e4440f20fd0351b76156c0 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 2 Apr 2024 12:02:49 +0100
Subject: 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)
-- 
cgit v1.2.3