diff options
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 204e041..a42f3a0 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -20,6 +20,7 @@ #:use-module ((guix build syscalls) #:select (set-thread-name)) #:use-module (guix-build-coordinator utils) + #:use-module (guix-build-coordinator utils fibers) #:use-module ((guix build download) #:select (http-fetch)) #:use-module ((guix build utils) #:select (with-directory-excursion)) #:use-module (guix-qa-frontpage mumi) @@ -555,7 +556,9 @@ (simple-format (current-error-port) "exception in manage patch branches thread: ~A\n" - exn)) + exn) + (unless (worker-thread-timeout-error? exn) + (sleep 240))) (lambda () (with-throw-handler #t (lambda () @@ -566,7 +569,6 @@ #:buckets (list 30 60 120 240 480 960 1920 3840 (inf)))) (lambda args (display (backtrace) (current-error-port)) - (newline (current-error-port))))) - #:unwind? #t) - (sleep 3600))))) - + (newline (current-error-port)))) + (sleep 3600)) + #:unwind? #t))))) |