diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-10 10:34:39 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-10 10:38:16 +0100 |
commit | a27b1c25cb60568c88256c7b406e57f68a712272 (patch) | |
tree | 8d5cbfeacf93e8939d8f13563d54927d01b88730 /guix-build-coordinator | |
parent | 9840bca56a570d87f21b553a197f81ffe1bf0963 (diff) | |
download | build-coordinator-a27b1c25cb60568c88256c7b406e57f68a712272.tar build-coordinator-a27b1c25cb60568c88256c7b406e57f68a712272.tar.gz |
Add some time logging to allocating builds
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r-- | guix-build-coordinator/coordinator.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 9e72df1..40d01e6 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -139,9 +139,12 @@ (define datastore (build-coordinator-datastore build-coordinator)) - (datastore-replace-build-allocation-plan - datastore - ((build-coordinator-allocation-strategy build-coordinator) datastore)) + (let* ((allocator-proc + (build-coordinator-allocation-strategy build-coordinator)) + (new-plan + (with-time-logging "allocating builds" + (allocator-proc datastore)))) + (datastore-replace-build-allocation-plan datastore new-plan)) #t) (define (make-build-allocator-thread build-coordinator) |