aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-11-20 12:16:06 +0000
committerChristopher Baines <mail@cbaines.net>2023-11-20 12:16:06 +0000
commitc226d48d97ce3a248cf2d814c9b4c4f48e67511e (patch)
treedb5df564e333c781efa4f5421fe3d6072dd29bea /guix-build-coordinator
parent3711cd8f1d901b424b2073dc54be4eec83c95482 (diff)
downloadbuild-coordinator-c226d48d97ce3a248cf2d814c9b4c4f48e67511e.tar
build-coordinator-c226d48d97ce3a248cf2d814c9b4c4f48e67511e.tar.gz
Remove set-store-connection-timeout
As non blocking connections are being used now.
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/agent.scm2
-rw-r--r--guix-build-coordinator/utils.scm11
2 files changed, 0 insertions, 13 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index 52e4b15..6de13b5 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -775,8 +775,6 @@ but the guix-daemon claims it's unavailable"
(lambda ()
(with-port-timeouts
(lambda ()
- (set-store-connection-timeout
- fetch-substitute-store)
(parameterize
((current-build-output-port log-port))
(build-things fetch-substitute-store
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index 1d5ddbd..afee6fc 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -57,8 +57,6 @@
with-port-timeouts
- set-store-connection-timeout
-
request-query-parameters
call-with-streaming-http-request
@@ -262,15 +260,6 @@
(wait port "w"))))
(thunk)))
-(define* (set-store-connection-timeout store #:key (timeout 120))
- (define raw-port (store-connection-socket store))
-
- (when (and (defined? 'SO_RCVTIMEO)
- (not (running-on-the-hurd?)))
- ;; This is only supported on Guile 3.0.9 and later
- (setsockopt raw-port SOL_SOCKET SO_RCVTIMEO `(,timeout . 0))
- (setsockopt raw-port SOL_SOCKET SO_SNDTIMEO `(,timeout . 0))))
-
(define* (call-with-streaming-http-request uri
content-length
callback