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/view | |
| 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/view')
| -rw-r--r-- | guix-qa-frontpage/view/patches.scm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/guix-qa-frontpage/view/patches.scm b/guix-qa-frontpage/view/patches.scm index cd99fb4..4e848c9 100644 --- a/guix-qa-frontpage/view/patches.scm +++ b/guix-qa-frontpage/view/patches.scm @@ -4,7 +4,7 @@ #:use-module (guix-qa-frontpage view util) #:export (patches-view)) -(define (patches-view latest-series) +(define (patches-view latest-series systems-with-low-substitute-availability) (layout #:title "Patches" #:body @@ -13,6 +13,20 @@ top.") (p "For issues with the green status (important checks passing), the oldest ones will appear first.") + ,@(if (or (eq? #f systems-with-low-substitute-availability) + (null? systems-with-low-substitute-availability)) + '() + `((p (@ (style "text-align: center; font-weight: bold;")) + "Builds for new patch series suspended as low " + (a (@ (href "/branch/master")) + "master branch substitute availability") + " for: " + ,@(append-map + (lambda (system) + `((span (@ (style "font-family: monospace;")) + ,system + " "))) + systems-with-low-substitute-availability)))) (table (tbody ,@(map (match-lambda |