diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-10-29 09:45:27 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-10-29 09:45:27 +0000 |
| commit | 21d81034da0861f70c94e33dae221eb3d210c5b1 (patch) | |
| tree | 25225ced15a5fb86009e22214f0163f6907388c2 /guix-qa-frontpage/manage-builds.scm | |
| parent | ac9d7b550edf48afdd9011d1bc0517c1c81b8008 (diff) | |
| download | qa-frontpage-21d81034da0861f70c94e33dae221eb3d210c5b1.tar qa-frontpage-21d81034da0861f70c94e33dae221eb3d210c5b1.tar.gz | |
Make "large-number-of-builds" an issue status
Rather than these falling within the unknown status.
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index e1d175f..0658daf 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -21,8 +21,10 @@ #:use-module (guix-qa-frontpage manage-patch-branches) #:export (%systems-to-submit-builds-for %systems-with-expected-low-substitute-availability + %patches-builds-limit builds-missing-for-derivation-changes? + derivation-changes->builds-to-keep-and-submit submit-builds-for-issue @@ -46,6 +48,10 @@ "riscv64-linux" "powerpc64le-linux")) +(define %patches-builds-limit + (* (length %systems-to-submit-builds-for) + 300)) + (define* (submit-builds-for-issue database build-coordinator @@ -182,9 +188,7 @@ guix-data-service issue-number #:priority priority-for-change - #:build-limit - (* (length %systems-to-submit-builds-for) - 300))) + #:build-limit %patches-builds-limit)) first-n-series-issue-numbers))) (spawn-fiber |