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 /guix-qa-frontpage/view/shared.scm | |
| 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.
Diffstat (limited to 'guix-qa-frontpage/view/shared.scm')
| -rw-r--r-- | guix-qa-frontpage/view/shared.scm | 6 |
1 files changed, 4 insertions, 2 deletions
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 |