diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in | 15 |
1 files changed, 13 insertions, 2 deletions
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)) |