aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rw-r--r--scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in15
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))