From d929581803e54aa62060beb0d05d13dac36c0d13 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 15 Jun 2022 12:22:38 +0100 Subject: Set thread names to help with debugging --- guix-build-coordinator/agent.scm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'guix-build-coordinator/agent.scm') diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 7659fe6..fe88185 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -43,6 +43,8 @@ #:use-module (guix derivations) #:use-module (guix base32) #:use-module (guix serialization) + #:use-module ((guix build syscalls) + #:select (set-thread-name)) #:use-module (guix-build-coordinator utils) #:use-module (guix-build-coordinator agent-messaging) #:use-module (guix-build-coordinator agent-messaging abstract) @@ -360,7 +362,8 @@ list-post-build-jobs) (create-work-queue parallel-uploads (lambda (build thunk) - (thunk)))) + (thunk)) + #:name "upload")) ((process-job-with-queue count-jobs count-threads list-jobs) (create-work-queue current-max-builds @@ -379,7 +382,8 @@ (make-time time-duration 0 - 20)))) + 20) + #:name "job"))) (define (display-info) (display (simple-format @@ -425,6 +429,8 @@ (unless (running-on-the-hurd?) (call-with-new-thread (lambda () + (set-thread-name "gbc signal info") + (sigaction SIGUSR1 (lambda _ (display-info))) @@ -433,6 +439,8 @@ (call-with-new-thread (lambda () + (set-thread-name "gbc console info") + (let loop ((line (get-line (current-input-port)))) (unless (eof-object? line) (display-info) -- cgit v1.2.3