aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-build-coordinator/coordinator.scm22
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))