diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-02 22:15:39 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-02 22:15:39 +0200 |
| commit | 6f9b3b28ba220ac0287f93b97604bc4cdc7fd8bb (patch) | |
| tree | c3999a2fd31293df184435ce5085a9a22f82304c /guix-build-coordinator | |
| parent | 58035075378b66972e203de609b400173658f15f (diff) | |
| download | build-coordinator-6f9b3b28ba220ac0287f93b97604bc4cdc7fd8bb.tar build-coordinator-6f9b3b28ba220ac0287f93b97604bc4cdc7fd8bb.tar.gz | |
Remove the gbc prefix from the thread names
As this shouldn't be needed to help identify them.
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 6 | ||||
| -rw-r--r-- | guix-build-coordinator/utils.scm | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index b041a2f..c3c1604 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -500,7 +500,7 @@ (unless (running-on-the-hurd?) (call-with-new-thread (lambda () - (set-thread-name "gbc signal info") + (set-thread-name "signal info") (sigaction SIGUSR1 (lambda _ @@ -510,7 +510,7 @@ (call-with-new-thread (lambda () - (set-thread-name "gbc console info") + (set-thread-name "console info") (let loop ((line (get-line (current-input-port)))) (unless (eof-object? line) @@ -520,7 +520,7 @@ (unless (running-on-the-hurd?) (call-with-new-thread (lambda () - (set-thread-name "gbc submit status") + (set-thread-name "submit status") (while #t (with-exception-handler diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 363bc27..e840ba7 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -985,7 +985,7 @@ References: ~a~%" (catch 'system-error (lambda () (set-thread-name - (string-append "gbc " name " q t " + (string-append name " q t " (number->string thread-index)))) (const #t)) @@ -1147,7 +1147,7 @@ References: ~a~%" (catch 'system-error (lambda () (set-thread-name - (string-append "gbc " name " p t " + (string-append name " p t " (number->string thread-index)))) (const #t)) |