diff options
| -rw-r--r-- | guix-qa-frontpage/branch.scm | 7 | ||||
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 20 | ||||
| -rw-r--r-- | guix-qa-frontpage/server.scm | 14 |
3 files changed, 26 insertions, 15 deletions
diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm index 1d0182a..e79417e 100644 --- a/guix-qa-frontpage/branch.scm +++ b/guix-qa-frontpage/branch.scm @@ -237,9 +237,10 @@ (master-branch-systems-with-low-substitute-availability (get-systems-with-low-substitute-availability (master-branch-data) - (delete "i586-gnu" - %systems-to-submit-builds-for - string=?)))) + (lset-difference + string=? + %systems-to-submit-builds-for + %systems-with-expected-low-substitute-availability)))) (values revisions diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 118c6f3..0e0dafe 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -14,6 +14,7 @@ #:use-module (guix-qa-frontpage guix-data-service) #:use-module (guix-qa-frontpage manage-patch-branches) #:export (%systems-to-submit-builds-for + %systems-with-expected-low-substitute-availability builds-missing-for-derivation-changes? @@ -34,6 +35,11 @@ "powerpc64le-linux" "i586-gnu")) +(define %systems-with-expected-low-substitute-availability + '("i586-gnu" + "riscv64-linux" + "powerpc64le-linux")) + (define* (submit-builds-for-issue database build-coordinator @@ -157,9 +163,10 @@ (systems-with-low-substitute-availability (get-systems-with-low-substitute-availability master-branch-substitute-availability - (delete "i586-gnu" - %systems-to-submit-builds-for - string=?)))) + (lset-difference + string=? + %systems-to-submit-builds-for + %systems-with-expected-low-substitute-availability)))) (if (null? systems-with-low-substitute-availability) (submit-builds) @@ -279,9 +286,10 @@ (systems-with-low-substitute-availability (get-systems-with-low-substitute-availability master-branch-substitute-availability - (delete "i586-gnu" - %systems-to-submit-builds-for - string=?)))) + (lset-difference + string=? + %systems-to-submit-builds-for + %systems-with-expected-low-substitute-availability)))) (if (null? systems-with-low-substitute-availability) (submit-builds) diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index 82b8a43..497085d 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -211,9 +211,10 @@ (systems-with-low-substitute-availability (get-systems-with-low-substitute-availability master-branch-substitute-availability - (delete "i586-gnu" - %systems-to-submit-builds-for - string=?)))) + (lset-difference + string=? + %systems-to-submit-builds-for + %systems-with-expected-low-substitute-availability)))) (render-html #:sxml (patches-view (if (> (length sorted-latest-series) @@ -382,9 +383,10 @@ (systems-with-low-substitute-availability (get-systems-with-low-substitute-availability master-branch-substitute-availability - (delete "i586-gnu" - %systems-to-submit-builds-for - string=?)))) + (lset-difference + string=? + %systems-to-submit-builds-for + %systems-with-expected-low-substitute-availability)))) (render-html #:sxml (issue-view number series |