diff options
Diffstat (limited to 'guix-qa-frontpage/guix-data-service.scm')
| -rw-r--r-- | guix-qa-frontpage/guix-data-service.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm index 6266ff1..2af4b46 100644 --- a/guix-qa-frontpage/guix-data-service.scm +++ b/guix-qa-frontpage/guix-data-service.scm @@ -11,6 +11,7 @@ #:use-module (zlib) #:use-module (json) #:use-module ((guix-build-coordinator utils) #:select (retry-on-error)) + #:use-module (guix-qa-frontpage utils) #:use-module (guix-qa-frontpage patchwork) #:use-module (guix-qa-frontpage manage-patch-branches) #:export (&guix-data-service-error @@ -151,7 +152,10 @@ (if (= 0 retry-times) (make-request) (retry-on-error - make-request + (lambda () + (with-fibers-port-timeouts + make-request + #:timeout 120)) #:times retry-times #:delay retry-delay #:ignore (lambda (exn) |