diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-08-09 20:13:33 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-08-09 20:15:13 +0100 |
| commit | 414ff3c84a376a87a8661e91a5fd97709d552074 (patch) | |
| tree | 24e348664398f554d9b8c69f812221b0445c8027 /guix-build-coordinator/agent-messaging | |
| parent | c5412d66b058051b627ea0fe5c409860289ad1f1 (diff) | |
| download | build-coordinator-414ff3c84a376a87a8661e91a5fd97709d552074.tar build-coordinator-414ff3c84a376a87a8661e91a5fd97709d552074.tar.gz | |
Name more threads
To help with debugging.
Diffstat (limited to 'guix-build-coordinator/agent-messaging')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index e3ced38..aaa88cb 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -431,6 +431,11 @@ port. Also, the port used can be changed by passing the --port option.\n" (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name "compute hash")) + (const #t)) + (with-exception-handler (lambda (exn) (put-message channel |