diff options
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
-rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 5d23e3d..057547d 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -6,6 +6,8 @@ #:use-module (ice-9 streams) #:use-module (ice-9 threads) #:use-module (guix sets) + #:use-module ((guix build syscalls) + #:select (set-thread-name)) #:use-module (guix-build-coordinator utils) #:use-module (guix-build-coordinator client-communication) #:use-module (guix-qa-frontpage database) @@ -144,6 +146,11 @@ (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name "patch builds")) + (const #t)) + (while #t (with-exception-handler (lambda (exn) @@ -279,6 +286,11 @@ (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name "branch builds")) + (const #t)) + (while #t (with-exception-handler (lambda (exn) @@ -611,6 +623,11 @@ (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name "system test builds")) + (const #t)) + (while #t (with-exception-handler (lambda (exn) |