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-patch-branches.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-patch-branches.scm')
-rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index b29cf67..f10ba9f 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -13,6 +13,8 @@ #:use-module (guix sets) #:use-module (guix memoization) #:use-module (guix build utils) + #:use-module ((guix build syscalls) + #:select (set-thread-name)) #:use-module (guix-build-coordinator utils) #:use-module ((guix build download) #:select (http-fetch)) #:use-module ((guix build utils) #:select (with-directory-excursion)) @@ -409,6 +411,11 @@ (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name "patch branches")) + (const #t)) + (while #t (with-exception-handler (lambda (exn) |