Don't use open-connection-for-uri from Guix

As it's timeout approach doesn't work with suspendable ports.

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