From 322aa0fcc32305e6cad25621f63253bb00ce14d9 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 3 Nov 2023 10:53:46 +0000 Subject: Fix the package changes table on the branch page And only display the "below systems" message if there are any. --- guix-qa-frontpage/view/branch.scm | 3 ++- guix-qa-frontpage/view/shared.scm | 6 ++++-- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/guix-qa-frontpage/view/branch.scm b/guix-qa-frontpage/view/branch.scm index b1701e2..5c7c94f 100644 --- a/guix-qa-frontpage/view/branch.scm +++ b/guix-qa-frontpage/view/branch.scm @@ -217,7 +217,8 @@ td.bad { ,(package-changes-summary-table revisions derivation-changes-counts - (string-append "/branch/" branch))) + (string-append "/branch/" branch) + %systems-to-submit-builds-for)) (h2 "Package reproducibility") (div diff --git a/guix-qa-frontpage/view/shared.scm b/guix-qa-frontpage/view/shared.scm index 3112028..708ac63 100644 --- a/guix-qa-frontpage/view/shared.scm +++ b/guix-qa-frontpage/view/shared.scm @@ -731,8 +731,10 @@ (assoc-ref derivation-changes-counts system) #:bad-highlighting #t)) important-systems) - `((tr (td (@ (colspan 10)) - "Build status for the below systems doesn't affect issue status"))) + (if (null? other-systems) + '() + `((tr (td (@ (colspan 10)) + "Build status for the below systems doesn't affect issue status")))) (map (lambda (system) (system+derivations->tr -- cgit v1.2.3