diff options
author | Christopher Baines <mail@cbaines.net> | 2022-06-15 12:22:38 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-06-15 12:22:38 +0100 |
commit | d929581803e54aa62060beb0d05d13dac36c0d13 (patch) | |
tree | 67a542b519e7b0717189cc605123c540514b219b /guix-build-coordinator/agent.scm | |
parent | ba75cbe2df5abe3d4ce51d30740c0a98e1ababa3 (diff) | |
download | build-coordinator-d929581803e54aa62060beb0d05d13dac36c0d13.tar build-coordinator-d929581803e54aa62060beb0d05d13dac36c0d13.tar.gz |
Set thread names to help with debugging
Diffstat (limited to 'guix-build-coordinator/agent.scm')
-rw-r--r-- | guix-build-coordinator/agent.scm | 12 |
1 files changed, 10 insertions, 2 deletions
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) |