diff options
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 |