diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-27 21:18:40 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-27 21:18:40 +0100 |
| commit | 0a594526ba1aced42e00793cd2244250939d509f (patch) | |
| tree | d9a769dc6165d2d16ca66f6e55b769d2708a648a | |
| parent | 4c11d4d42798f1ab00b4c17cf2e57522abf1437e (diff) | |
| download | build-coordinator-0a594526ba1aced42e00793cd2244250939d509f.tar build-coordinator-0a594526ba1aced42e00793cd2244250939d509f.tar.gz | |
Move waiting after hook errors in to process-event
So that this happens for parallel hooks as well.
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 9556549..87c2345 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -998,7 +998,8 @@ (lambda (exn) (metric-increment failure-counter-metric #:label-values - `((event . ,event)))) + `((event . ,event))) + (sleep 10)) (lambda () (log-msg (build-coordinator-logger build-coordinator) 'DEBUG @@ -1066,8 +1067,7 @@ wait-timeout-seconds))) (((id event arguments)) (process-event id event arguments handler))))) - #:unwind? #t) - (sleep 10))))) + #:unwind? #t))))) (define (work-queue-process-events mtx condvar event-name handler thread-count) (let-values (((process-job count-jobs |