From d78a19d8dc84b506ade7bbce1167358400976f62 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 28 Apr 2024 19:25:46 +0100 Subject: Have the port monitoring fiber use non blocking sockets --- guix-build-coordinator/utils.scm | 1 + guix-build-coordinator/utils/fibers.scm | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) (limited to 'guix-build-coordinator') 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)) -- cgit v1.2.3