From 77a0991cbfb0c4d71ad80f92cabae28d4f233e65 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 28 Apr 2024 16:58:00 +0100 Subject: Don't use open-connection-for-uri from Guix As it's timeout approach doesn't work with suspendable ports. --- guix-build-coordinator/utils.scm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'guix-build-coordinator') 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 -- cgit v1.2.3