diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-02 22:17:44 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-02 22:17:44 +0200 |
| commit | 7d8af9f67c59cf6333d10f92343cd756e1db36cd (patch) | |
| tree | c36cbf5b6148c4e1d976982e663b3e70e547d03c /guix-build-coordinator | |
| parent | 6f9b3b28ba220ac0287f93b97604bc4cdc7fd8bb (diff) | |
| download | build-coordinator-7d8af9f67c59cf6333d10f92343cd756e1db36cd.tar build-coordinator-7d8af9f67c59cf6333d10f92343cd756e1db36cd.tar.gz | |
Name more of the worker thread channels
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 2 | ||||
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index c9b0c3e..f2d0089 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -445,6 +445,7 @@ ;; requests, so do this in dedicated threads. (make-worker-thread-channel (const '()) + #:name "chunked request" #:parallelism 16 #:log-exception? (lambda (exn) @@ -465,6 +466,7 @@ (substitutes-channel (make-worker-thread-channel (const '()) + #:name "substitutes" #:parallelism 16 #:delay-logger (lambda (seconds-delayed) diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 73b3c86..f94e2ee 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -1546,6 +1546,8 @@ ORDER BY level ASC" builds-to-consider))))) + (peek "BUILDS TO CONSIDER" (length builds-to-consider)) + (for-each (lambda (build-id) (datastore-call-with-transaction |