diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-03-29 19:40:03 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-03-29 19:40:03 +0100 |
| commit | 00c64a8a7ab29a3ed4b5a59434933de92321086f (patch) | |
| tree | 9966296d80a1bcc47dedb5dbc96ce4c43a823c90 | |
| parent | 57932a3d80ba6e41bb349487372f990cf56063d1 (diff) | |
| download | build-coordinator-00c64a8a7ab29a3ed4b5a59434933de92321086f.tar build-coordinator-00c64a8a7ab29a3ed4b5a59434933de92321086f.tar.gz | |
Start the allocator and hook threads later
It's important that this code doesn't run until Sqitch has run.
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index bae5d11..9c4fc09 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -161,14 +161,6 @@ (add-handler! lgr port-log) (open-log! lgr) - (set-build-coordinator-allocator-thread! - build-coordinator - (make-build-allocator-thread build-coordinator)) - - (set-build-coordinator-hook-condvars! - build-coordinator - (start-hook-processing-threads build-coordinator)) - build-coordinator)) (define* (perform-coordinator-service-startup build-coordinator @@ -192,6 +184,14 @@ (datastore-initialise-metrics! (build-coordinator-datastore build-coordinator))) + (set-build-coordinator-allocator-thread! + build-coordinator + (make-build-allocator-thread build-coordinator)) + + (set-build-coordinator-hook-condvars! + build-coordinator + (start-hook-processing-threads build-coordinator)) + (when trigger-build-allocation? (trigger-build-allocation build-coordinator))) |