diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-04-22 18:37:12 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-04-22 18:37:12 +0100 |
| commit | d407355418085371b8c2a4194ebfb5baf647631f (patch) | |
| tree | 0a8abb306964d75959725fc58cd2e624d7ed380b /guix-build-coordinator | |
| parent | b43f0a967d68fb1c5ce1f2c82727c78e8b954b6c (diff) | |
| download | build-coordinator-d407355418085371b8c2a4194ebfb5baf647631f.tar build-coordinator-d407355418085371b8c2a4194ebfb5baf647631f.tar.gz | |
Remove some thread pool logging
As I'm not currently debugging this.
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/utils.scm | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 6af9a0b..f6b56ed 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -1321,22 +1321,6 @@ References: ~a~%" (let ((idle-threads (hash-count (lambda (index val) (eq? #f val)) running-job-args))) - - (let ((thread-info - (hash-fold - (lambda (k v result) - (string-append - result - (simple-format #f " ~A: ~A" k v))) - "" - running-job-args))) - (unless (string-null? thread-info) - (display - (string-append - (simple-format #f "~A thread pool: " name) - thread-info - "\n\n")))) - (when (= 0 idle-threads) (start-new-threads-if-necessary (get-thread-count)))) |