diff options
Diffstat (limited to 'nar-herder/mirror.scm')
-rw-r--r-- | nar-herder/mirror.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/nar-herder/mirror.scm b/nar-herder/mirror.scm index 1f0998e..41e1c05 100644 --- a/nar-herder/mirror.scm +++ b/nar-herder/mirror.scm @@ -19,6 +19,7 @@ (define-module (nar-herder mirror) #:use-module (srfi srfi-1) #:use-module (srfi srfi-43) + #:use-module (srfi srfi-71) #:use-module (ice-9 match) #:use-module (ice-9 threads) #:use-module (ice-9 exceptions) @@ -74,7 +75,14 @@ (lambda () (with-port-timeouts (lambda () - (http-get uri #:decode-body? #f)))) + (let ((port + socket + (open-socket-for-uri* uri))) + (set-socket-timeout socket #:seconds 30) + + (http-get uri + #:port port + #:decode-body? #f))))) #:times 3 #:delay 15)) (lambda (response body) |