diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-03-14 11:18:13 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-03-14 11:18:13 +0000 |
| commit | 835001ea9ebfadfc8cd8dcf0d790c1b0d9f030f6 (patch) | |
| tree | ee01c789d7d4f93ed445c75bfceb3968ae6da86d | |
| parent | 83ba46609291ecce9238f984888510fcb66b93d0 (diff) | |
| download | qa-frontpage-835001ea9ebfadfc8cd8dcf0d790c1b0d9f030f6.tar qa-frontpage-835001ea9ebfadfc8cd8dcf0d790c1b0d9f030f6.tar.gz | |
Don't error when displaying branch substitute availability information
| -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") |