From d407355418085371b8c2a4194ebfb5baf647631f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 22 Apr 2023 18:37:12 +0100 Subject: Remove some thread pool logging As I'm not currently debugging this. --- guix-build-coordinator/utils.scm | 16 ---------------- 1 file changed, 16 deletions(-) (limited to 'guix-build-coordinator/utils.scm') 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)))) -- cgit v1.2.3