aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-04-28 19:25:46 +0100
committerChristopher Baines <mail@cbaines.net>2024-04-28 19:25:46 +0100
commitd78a19d8dc84b506ade7bbce1167358400976f62 (patch)
treea2f47b894f1715370cfa155395fe007da268c84a /guix-build-coordinator
parent8d9d5a907dc0cf35cec41230035e962ebf5f2351 (diff)
downloadbuild-coordinator-d78a19d8dc84b506ade7bbce1167358400976f62.tar
build-coordinator-d78a19d8dc84b506ade7bbce1167358400976f62.tar.gz
Have the port monitoring fiber use non blocking sockets
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/utils.scm1
-rw-r--r--guix-build-coordinator/utils/fibers.scm4
2 files changed, 4 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index 1bb1942..6840ddd 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -63,6 +63,7 @@
read-derivation-from-file*
+ non-blocking-port
with-store/non-blocking
substitute-derivation
diff --git a/guix-build-coordinator/utils/fibers.scm b/guix-build-coordinator/utils/fibers.scm
index 5362b18..e082bf6 100644
--- a/guix-build-coordinator/utils/fibers.scm
+++ b/guix-build-coordinator/utils/fibers.scm
@@ -306,7 +306,9 @@ If already in the worker thread, call PROC immediately."
(lambda ()
(with-fibers-port-timeouts
(lambda ()
- (let ((sock (socket PF_INET SOCK_STREAM 0)))
+ (let ((sock
+ (non-blocking-port
+ (socket PF_INET SOCK_STREAM 0))))
(connect sock AF_INET INADDR_LOOPBACK port)
(close-port sock)))
#:timeout 20))