From 3eb6599a12e7c7ea8c4570e34f7ad6a631d5977b Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 23 May 2023 09:21:18 +0100 Subject: 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. --- guix-qa-frontpage/view/patches.scm | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'guix-qa-frontpage/view') 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 -- cgit v1.2.3