diff options
author | Christopher Baines <mail@cbaines.net> | 2023-11-03 10:53:46 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-11-03 10:53:46 +0000 |
commit | 322aa0fcc32305e6cad25621f63253bb00ce14d9 (patch) | |
tree | 71af78996445829bfff64c651a302cb2a6f912e7 | |
parent | dc8747758c72325b04732c59499ae0ee6a9396db (diff) | |
download | qa-frontpage-322aa0fcc32305e6cad25621f63253bb00ce14d9.tar qa-frontpage-322aa0fcc32305e6cad25621f63253bb00ce14d9.tar.gz |
Fix the package changes table on the branch page
And only display the "below systems" message if there are any.
-rw-r--r-- | guix-qa-frontpage/view/branch.scm | 3 | ||||
-rw-r--r-- | 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 |