diff options
| -rw-r--r-- | guix-qa-frontpage/view/branch.scm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/guix-qa-frontpage/view/branch.scm b/guix-qa-frontpage/view/branch.scm index d7c93f7..4eac653 100644 --- a/guix-qa-frontpage/view/branch.scm +++ b/guix-qa-frontpage/view/branch.scm @@ -131,7 +131,8 @@ td.bad { (h2 "Substitute availability") (div - ,@(if substitute-availability + ,@(if (and substitute-availability + (vector? substitute-availability)) (map (lambda (details) `(table @@ -183,7 +184,18 @@ td.bad { (vector->list (assoc-ref details "availability"))))))) (vector->list substitute-availability)) - '("Information unavailable"))) + (if (and (list? substitute-availability) + (assq-ref substitute-availability 'exception)) + `((p (@ (style ,(string-join + '("text-align: center;" + "font-weight: bold;" + "padding: 1rem;" + "max-width: 46rem;" + "border-width: 0.35em;" + "border-style: dashed;" + "border-color: red")))) + "Exception checking substitute availability")) + '("Information unavailable")))) (h2 "Packages") |