diff options
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 22 |
1 files changed, 7 insertions, 15 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index cece029..2055c19 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -1199,25 +1199,17 @@ (let* ((in-progress-ids (map car running-jobs)) (potential-jobs - (map - (match-lambda - ((id _ _) (list id))) - (datastore-list-unprocessed-hook-events - datastore - event-name - (+ 1 (length in-progress-ids)))))) + (datastore-list-unprocessed-hook-events + datastore + event-name + (+ 1 (length in-progress-ids))))) (find (match-lambda - ((id) + ((id rest ...) (not (member id in-progress-ids)))) potential-jobs))) - (lambda (id) - (match (datastore-find-unprocessed-hook-event - datastore - id) - (#f #f) ; already processed - ((event arguments) - (process-event id event arguments handler)))) + (lambda (id event arguments) + (process-event id event arguments handler)) #:name (symbol->string event-name)))) job-available)) |