diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-04-28 16:58:00 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-28 16:58:00 +0100 |
| commit | 77a0991cbfb0c4d71ad80f92cabae28d4f233e65 (patch) | |
| tree | 0c766d35572efa4bf9f070bf0ba22eb88c9f5380 /guix-build-coordinator | |
| parent | 0df0c1a6b85f1f84affdd21b3b6b14fb62f7820e (diff) | |
| download | build-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.scm | 8 |
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 |