From 7f89f17179b3af495d0b1e88218074912c78e68d Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 9 Aug 2023 19:37:21 +0100
Subject: Name the fibers threads

To make debugging easier.
---
 guix-build-coordinator/coordinator.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'guix-build-coordinator/coordinator.scm')

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")
-- 
cgit v1.2.3