diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-19 16:48:01 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-19 17:03:08 +0100 |
| commit | c7b13f2cdd6c2cb24c114e1b5593ef4ce3ef36aa (patch) | |
| tree | 4b67bcdd63cbc03ec98b413a286e810e6ff6e734 /guix-build-coordinator | |
| parent | f6dcb27d3fe8f20c7f4db975d5ac7a5df375a4f7 (diff) | |
| download | build-coordinator-c7b13f2cdd6c2cb24c114e1b5593ef4ce3ef36aa.tar build-coordinator-c7b13f2cdd6c2cb24c114e1b5593ef4ce3ef36aa.tar.gz | |
Add some logging to the hook work queues
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 834c44b..dc72ca9 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -1471,12 +1471,18 @@ (datastore-list-unprocessed-hook-events datastore event-name - (+ 1 (length in-progress-ids))))) - (find - (match-lambda - ((id rest ...) - (not (member id in-progress-ids)))) - potential-jobs))) + (+ 1 (length in-progress-ids)))) + (job + (find + (match-lambda + ((id rest ...) + (not (member id in-progress-ids)))) + potential-jobs))) + (log-msg + (build-coordinator-logger build-coordinator) + 'DEBUG + event-name " work queue, got job " job) + job)) (lambda (id event arguments) (process-event id event arguments handler)) #:name (symbol->string event-name)))) |