Name the fibers threads

To make debugging easier.

1 files changed, 18 insertions, 0 deletions

diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm
index 255fca7..15b6aa0 100644
--- a/guix-build-coordinator/coordinator.scm
+++ b/guix-build-coordinator/coordinator.scm
@@ -46,6 +46,8 @@
   #:use-module (fibers scheduler)
   #:use-module (fibers conditions)
   #:use-module (prometheus)
+  #:use-module ((guix build syscalls)
+                #:select (set-thread-name))
   #:use-module (guix derivations)
   #:use-module (guix build utils)
   #:use-module (guix-build-coordinator utils)
@@ -488,6 +490,22 @@
        (lambda ()
          (run-fibers
           (lambda ()
+            (let* ((current (current-scheduler))
+                   (schedulers
+                    (cons current (scheduler-remote-peers current))))
+              (for-each
+               (lambda (i sched)
+                 (spawn-fiber
+                  (lambda ()
+                    (catch 'system-error
+                      (lambda ()
+                        (set-thread-name
+                         (string-append "fibers " (number->string i))))
+                      (const #t)))
+                  sched))
+               (iota (length schedulers))
+               schedulers))
+
             (log-msg (build-coordinator-logger build-coordinator)
                      'INFO
                      "initialising metrics")