diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-03-02 09:23:30 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-03-02 09:23:30 +0000 |
| commit | 1c80525d21f183ed2556def6fcd021f6ea9a88a4 (patch) | |
| tree | 5671dc0b1aa468729aaee218d62a0bf1f833c6bd /guix-build-coordinator/client-communication.scm | |
| parent | 9f1545b15269523eac109b54e1a62f4c0cda837e (diff) | |
| download | build-coordinator-1c80525d21f183ed2556def6fcd021f6ea9a88a4.tar build-coordinator-1c80525d21f183ed2556def6fcd021f6ea9a88a4.tar.gz | |
Actually use non-blocking ports for network requests
In most places at least.
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 5a66cdd..c0118aa 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -683,10 +683,6 @@ (port socket (open-socket-for-uri* uri))) - ;; Guile/guile-gnutls don't handle the handshake happening on a non - ;; blocking socket, so change the behavior here. - (let ((flags (fcntl socket F_GETFL))) - (fcntl socket F_SETFL (logior O_NONBLOCK flags))) (let ((response body |