From 7c3d334eaaa002a60f1fdfea475a733d9ee221fa Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 27 May 2022 14:23:59 +0100 Subject: Support specifying branches to submit builds for --- ...ild-coordinator-queue-builds-from-guix-data-service.in | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) (limited to 'scripts') diff --git a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in index 01c301f..dc28008 100644 --- a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in +++ b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in @@ -285,6 +285,13 @@ arg (alist-delete 'guix-data-service-build-server-id result)))) + (option '("branch") #t #f + (lambda (opt name arg result) + (alist-cons 'branches + (cons arg + (or (assq-ref result 'branches) + '())) + (alist-delete 'branches result)))) (option '("threads") #t #f (lambda (opt name arg result) (alist-cons 'threads @@ -426,8 +433,12 @@ repository-id branch) (map car (list-jobs))))) - (all-repository-branches guix-data-service - repository-id))) + (let ((all-branches (all-repository-branches guix-data-service + repository-id)) + (specified-branches + (assq-ref opts 'branches))) + (or specified-branches + all-branches)))) (all-repository-ids guix-data-service)) (log-msg 'INFO "jobs: " (count-jobs) " threads: " (count-threads)) -- cgit v1.2.3