diff options
author | Christopher Baines <mail@cbaines.net> | 2023-07-25 17:27:06 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-07-25 17:27:06 +0100 |
commit | ad81d052c9e0dd596416095be49134b3bc5a2851 (patch) | |
tree | 0b13414c982bb3e2156c057f59898604da4f14b5 /guix-qa-frontpage/manage-builds.scm | |
parent | 8854c9df1b5aa4771a86a99811436046305e3ecd (diff) | |
download | qa-frontpage-ad81d052c9e0dd596416095be49134b3bc5a2851.tar qa-frontpage-ad81d052c9e0dd596416095be49134b3bc5a2851.tar.gz |
Set thread names
To help with debugging.
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) |