From fedc052e90e68b522f4912088673ebc53517452a Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 6 Dec 2023 15:22:23 +0000 Subject: Avoid some database queries when running hooks --- guix-build-coordinator/coordinator.scm | 22 +++++++--------------- 1 file 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)) -- cgit v1.2.3