diff options
author | Christopher Baines <mail@cbaines.net> | 2023-05-23 09:21:18 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-05-23 09:22:15 +0100 |
commit | 3eb6599a12e7c7ea8c4570e34f7ad6a631d5977b (patch) | |
tree | c9c651427cb8d2b08c225f482ee59518a3a328b6 /guix-qa-frontpage/server.scm | |
parent | 13994e1916a289bff86a3796f5703606cd205ce4 (diff) | |
download | qa-frontpage-3eb6599a12e7c7ea8c4570e34f7ad6a631d5977b.tar qa-frontpage-3eb6599a12e7c7ea8c4570e34f7ad6a631d5977b.tar.gz |
Make patch testing conditional on master branch substitute availability
Patch testing has been disabled manually recently as master branch substitute
availability has been low, but this change automates that.
While this check is quite rough, it's generally not worth submitting builds
when the substitute availability for the master branch is low since the build
farm will be busy with master branch builds.
Diffstat (limited to 'guix-qa-frontpage/server.scm')
-rw-r--r-- | guix-qa-frontpage/server.scm | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index e4e46ee..d77b646 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -181,13 +181,26 @@ #t) (else (< (first a) - (first b)))))))))) + (first b))))))))) + (master-branch-substitute-availability + (with-sqlite-cache + database + 'master-branch-data + master-branch-data + #:ttl 6000)) + (systems-with-low-substitute-availability + (get-systems-with-low-substitute-availability + master-branch-substitute-availability + (delete "i586-gnu" + %systems-to-submit-builds-for + string=?)))) (render-html #:sxml (patches-view (if (> (length sorted-latest-series) patch-issues-to-show) (take sorted-latest-series patch-issues-to-show) - sorted-latest-series))))) + sorted-latest-series) + systems-with-low-substitute-availability)))) (('GET "issue" (? (lambda (s) (string-suffix? ".svg" s)) number.svg)) (let* ((number (string->number (car (string-split number.svg #\.)))) |