3 files changed, 28 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
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm
index 3dd49e3..200dc21 100644
--- a/guix-build-coordinator/coordinator.scm
+++ b/guix-build-coordinator/coordinator.scm
@@ -998,6 +998,11 @@
 
   (call-with-new-thread
    (lambda ()
+     (catch 'system-error
+       (lambda ()
+         (set-thread-name "allocator"))
+       (const #t))
+
      (with-exception-handler
          (lambda (exn)
            (simple-format (current-error-port)
@@ -1120,6 +1125,12 @@
           (condvar (make-condition-variable)))
       (call-with-new-thread
        (lambda ()
+         (catch 'system-error
+           (lambda ()
+             (set-thread-name
+              (symbol->string event-name)))
+           (const #t))
+
          (lock-mutex mtx)
          (while #t
            (with-exception-handler
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index 17cabc8..a91e771 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -1076,6 +1076,12 @@ References: ~a~%"
     (if (procedure? thread-count-parameter)
         (call-with-new-thread
          (lambda ()
+           (catch 'system-error
+             (lambda ()
+               (set-thread-name
+                (string-append name " q t")))
+             (const #t))
+
            (while #t
              (sleep 15)
              (with-mutex queue-mutex
@@ -1229,6 +1235,12 @@ References: ~a~%"
     (if (procedure? thread-count-parameter)
         (call-with-new-thread
          (lambda ()
+           (catch 'system-error
+             (lambda ()
+               (set-thread-name
+                (string-append name " p t ")))
+             (const #t))
+
            (lock-mutex pool-mutex)
            (while #t
              (with-exception-handler