diff options
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index fd72ac5..baf73ea 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -1519,7 +1519,10 @@ (define (thread-pool-process-events event-name handler thread-count) (let ((thread-pool - (make-thread-pool thread-count)) + ;; TODO This should be done in knots + (call-with-default-io-waiters + (lambda () + (make-thread-pool thread-count)))) (reusable-condition (make-reusable-condition)) (coordination-channel |