From 414ff3c84a376a87a8661e91a5fd97709d552074 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 9 Aug 2023 20:13:33 +0100 Subject: Name more threads To help with debugging. --- guix-build-coordinator/agent-messaging/http/server.scm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'guix-build-coordinator/agent-messaging') 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 -- cgit v1.2.3