diff options
author | Christopher Baines <mail@cbaines.net> | 2023-03-06 17:46:55 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-03-06 17:49:18 +0000 |
commit | 58211705d525679aad1b62e2f808539166a5d209 (patch) | |
tree | 478062771b50e56e0ecf1f2a0b40408a960145cb /guix-qa-frontpage/manage-builds.scm | |
parent | bb0fa5697d51fdf3e34e2febbccd657f6c677f98 (diff) | |
download | qa-frontpage-58211705d525679aad1b62e2f808539166a5d209.tar qa-frontpage-58211705d525679aad1b62e2f808539166a5d209.tar.gz |
Increase the number of builds that can be performed for patches
From 200 per system to 1000 per system. Also change the prioritisation to make
best use of the build farm.
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
-rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 30 |
1 files changed, 24 insertions, 6 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index e65228f..b607f72 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -33,8 +33,8 @@ (define (priority-for-change change) (if (member (assoc-ref change "system") '("x86_64-linux" "aarch64-linux")) - 600 - 400)) + 550 + 350)) (define (submit-builds) (simple-format #t "submitting patch builds\n") @@ -98,8 +98,15 @@ target-commit #:build-limit (* (length %systems-to-submit-builds-for) - 200) - #:priority priority-for-change)))) + 1000) + #:priority priority-for-change + #:build-count-priority-penalty + (lambda (build-count) + (cond + ((< build-count 10) 0) + ((< build-count 100) 50) + ((< build-count 300) 100) + (else 150))))))) (simple-format #t "no derivation changes url for issue ~A\n" issue-number))))) (take series series-count)))) @@ -308,7 +315,8 @@ derivation-changes target-commit #:key build-limit - priority) + priority + (build-count-priority-penalty (const 0))) (define (submit-builds build-details build-ids-to-keep-set) (for-each @@ -358,7 +366,17 @@ (if (or (not build-limit) (< builds-to-submit-count build-limit)) - (submit-builds builds-to-submit-details + (submit-builds (let ((priority-penalty + (build-count-priority-penalty + builds-to-submit-count))) + (if (= 0 priority-penalty) + builds-to-submit-details + (map + (match-lambda + ((derivation priority) + (list derivation + (- priority priority-penalty)))) + builds-to-submit-details))) build-ids-to-keep-set) (simple-format #t "skipping ~A ~A as too many target derivations (~A)\n" category-name |