diff options
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index d1d797a..5d23e3d 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -178,18 +178,12 @@ (sleep 300))))) -(define (default-branch-priority-for-change change) - (if (member (assoc-ref change "system") - '("x86_64-linux" "aarch64-linux")) - 400 - 200)) - (define* (submit-builds-for-branch database build-coordinator guix-data-service branch #:key build-limit - (priority default-branch-priority-for-change) + (priority (const 0)) (systems %systems-to-submit-builds-for)) (simple-format #t "considering submitting builds for branch ~A\n" @@ -266,13 +260,21 @@ #:ttl 0) 2))) (for-each - (match-lambda - ((branch . details) + (match-lambda* + ((index (branch . details)) (submit-builds-for-branch database build-coordinator guix-data-service - branch))) + branch + #:priority + (lambda (change) + (- (if (member (assoc-ref change "system") + '("x86_64-linux" "aarch64-linux")) + 400 + 350) + (* index 100)))))) + (iota (length branches)) branches))) (call-with-new-thread |