diff options
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 |