diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-04-28 19:25:46 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-28 19:25:46 +0100 |
| commit | d78a19d8dc84b506ade7bbce1167358400976f62 (patch) | |
| tree | a2f47b894f1715370cfa155395fe007da268c84a /guix-build-coordinator | |
| parent | 8d9d5a907dc0cf35cec41230035e962ebf5f2351 (diff) | |
| download | build-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.scm | 1 | ||||
| -rw-r--r-- | guix-build-coordinator/utils/fibers.scm | 4 |
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)) |