aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-04-28 16:58:00 +0100
committerChristopher Baines <mail@cbaines.net>2024-04-28 16:58:00 +0100
commit77a0991cbfb0c4d71ad80f92cabae28d4f233e65 (patch)
tree0c766d35572efa4bf9f070bf0ba22eb88c9f5380 /guix-build-coordinator
parent0df0c1a6b85f1f84affdd21b3b6b14fb62f7820e (diff)
downloadbuild-coordinator-77a0991cbfb0c4d71ad80f92cabae28d4f233e65.tar
build-coordinator-77a0991cbfb0c4d71ad80f92cabae28d4f233e65.tar.gz
Don't use open-connection-for-uri from Guix
As it's timeout approach doesn't work with suspendable ports.
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/utils.scm8
1 files changed, 2 insertions, 6 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index a549f20..1bb1942 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -39,9 +39,6 @@
#:use-module ((guix http-client)
#:select (http-fetch))
#:use-module (guix serialization)
- #:use-module ((guix build download)
- #:select ((open-connection-for-uri
- . guix:open-connection-for-uri)))
#:use-module ((guix build syscalls)
#:select (set-thread-name))
#:use-module (guix scripts substitute)
@@ -487,10 +484,9 @@ context."
(match (assoc-ref cache key)
(#f
(let ((socket
- (guix:open-connection-for-uri
+ (open-socket-for-uri*
uri
- #:verify-certificate? verify-certificate?
- #:timeout timeout)))
+ #:verify-certificate? verify-certificate?)))
(set! cache (alist-cons key socket cache))
socket))
(socket