diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-11-20 12:16:06 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-11-20 12:16:06 +0000 |
| commit | c226d48d97ce3a248cf2d814c9b4c4f48e67511e (patch) | |
| tree | db5df564e333c781efa4f5421fe3d6072dd29bea | |
| parent | 3711cd8f1d901b424b2073dc54be4eec83c95482 (diff) | |
| download | build-coordinator-c226d48d97ce3a248cf2d814c9b4c4f48e67511e.tar build-coordinator-c226d48d97ce3a248cf2d814c9b4c4f48e67511e.tar.gz | |
Remove set-store-connection-timeout
As non blocking connections are being used now.
| -rw-r--r-- | guix-build-coordinator/agent.scm | 2 | ||||
| -rw-r--r-- | guix-build-coordinator/utils.scm | 11 |
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 |