diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-10-27 16:33:01 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-10-27 16:33:01 +0100 |
| commit | ac9d7b550edf48afdd9011d1bc0517c1c81b8008 (patch) | |
| tree | 3a1028f41d61e06a19be22e570b42e4460b8a028 | |
| parent | 57bab27e26627d17f40cd52fceee641d3e1ef825 (diff) | |
| download | qa-frontpage-ac9d7b550edf48afdd9011d1bc0517c1c81b8008.tar qa-frontpage-ac9d7b550edf48afdd9011d1bc0517c1c81b8008.tar.gz | |
Avoid timeouts blocking creating issue branches
| -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))))) |