diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-03 16:41:49 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-03 16:41:49 +0100 |
| commit | 083420e110e91bcc818f4e0a26d9d2900d4c665d (patch) | |
| tree | cee8f9518b6af3bb296a7bd2530e8aaadd1be6f8 /guix-qa-frontpage/view/branch.scm | |
| parent | 8233b1096899c1c137eba9bfa33546f764b44505 (diff) | |
| download | qa-frontpage-083420e110e91bcc818f4e0a26d9d2900d4c665d.tar qa-frontpage-083420e110e91bcc818f4e0a26d9d2900d4c665d.tar.gz | |
Don't show substitute availability of cross build packages
At least in this table.
Diffstat (limited to 'guix-qa-frontpage/view/branch.scm')
| -rw-r--r-- | guix-qa-frontpage/view/branch.scm | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/guix-qa-frontpage/view/branch.scm b/guix-qa-frontpage/view/branch.scm index 8efee8f..8e50806 100644 --- a/guix-qa-frontpage/view/branch.scm +++ b/guix-qa-frontpage/view/branch.scm @@ -91,8 +91,12 @@ td.bad { #f "background-color: ~A;" color) "")))) ,symbol)))) - (vector->list - (assoc-ref details "availability")))))) + (filter + (lambda (details) + (string-null? + (assoc-ref details "target"))) + (vector->list + (assoc-ref details "availability"))))))) (vector->list substitute-availability))) (h2 "Packages") @@ -234,6 +238,10 @@ td.bad { #f "background-color: ~A;" color) "")))) ,symbol)))) - (vector->list - (assoc-ref details "availability")))))) + (filter + (lambda (details) + (string-null? + (assoc-ref details "target"))) + (vector->list + (assoc-ref details "availability"))))))) (vector->list substitute-availability))))))) |