diff options
Diffstat (limited to 'guix-qa-frontpage/guix-data-service.scm')
| -rw-r--r-- | guix-qa-frontpage/guix-data-service.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm index 422cabf..40e2560 100644 --- a/guix-qa-frontpage/guix-data-service.scm +++ b/guix-qa-frontpage/guix-data-service.scm @@ -11,6 +11,9 @@ #:use-module (rnrs bytevectors) #:use-module (zlib) #:use-module (json) + #:use-module (fibers) + #:use-module (knots timeout) + #:use-module (knots non-blocking) #:use-module ((guix-build-coordinator utils fibers) #:select (retry-on-error)) #:use-module (guix-qa-frontpage utils) #:use-module (guix-qa-frontpage patchwork) @@ -174,8 +177,7 @@ (define* (guix-data-service-request url #:key (retry-times 0) (retry-delay 5)) (define (make-request) (let ((port - socket - (open-socket-for-uri* (string->uri url)))) + (nonblocking-open-socket-for-uri (string->uri url)))) (let ((response body @@ -226,7 +228,7 @@ (make-request) (retry-on-error (lambda () - (with-fibers-port-timeouts + (with-port-timeouts make-request #:timeout 120)) #:times retry-times |