diff options
author | Christopher Baines <mail@cbaines.net> | 2023-06-30 19:16:49 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-06-30 19:16:49 +0100 |
commit | ff22f545b54be50f52b605a90ec038be0d33360d (patch) | |
tree | 79f1f3b38c515956d0c61f9f6591f652603efb58 /nar-herder/cached-compression.scm | |
parent | 836812dbff93f3c670903720d04129be60873e22 (diff) | |
download | nar-herder-ff22f545b54be50f52b605a90ec038be0d33360d.tar nar-herder-ff22f545b54be50f52b605a90ec038be0d33360d.tar.gz |
Set low level timeouts for HTTP requests
To try to avoid things getting stuck.
Diffstat (limited to 'nar-herder/cached-compression.scm')
-rw-r--r-- | nar-herder/cached-compression.scm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/nar-herder/cached-compression.scm b/nar-herder/cached-compression.scm index 9982387..328c7d1 100644 --- a/nar-herder/cached-compression.scm +++ b/nar-herder/cached-compression.scm @@ -467,9 +467,15 @@ (lambda () (call-with-values (lambda () - (http-get uri - #:decode-body? #f - #:streaming? #t)) + (let ((port + socket + (open-socket-for-uri* uri))) + (set-socket-timeout socket #:seconds 30) + + (http-get uri + #:port port + #:decode-body? #f + #:streaming? #t))) (lambda (response body) (unless (= (response-code response) 200) |