diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-11-20 12:50:29 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-11-20 12:50:48 +0000 |
| commit | 542e257161a960f82bf67e65f87c50674fc41ebc (patch) | |
| tree | 240ac54566f9611a52b868664dc0c067a7ee27a3 | |
| parent | a03fab3883f182d0c6a2086b1e8bfa5ca659fbdb (diff) | |
| download | qa-frontpage-542e257161a960f82bf67e65f87c50674fc41ebc.tar qa-frontpage-542e257161a960f82bf67e65f87c50674fc41ebc.tar.gz | |
Look at a subset of the systems for the overall issue status
| -rw-r--r-- | guix-qa-frontpage/issue.scm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/guix-qa-frontpage/issue.scm b/guix-qa-frontpage/issue.scm index 4e411ec..5bad31e 100644 --- a/guix-qa-frontpage/issue.scm +++ b/guix-qa-frontpage/issue.scm @@ -47,6 +47,12 @@ (apply max (map status-index statuses)))) (define (issue-patches-overall-status derivation-changes mumi-tags) + (define %systems-to-consider + '("x86_64-linux" + "i686-linux" + "aarch64-linux" + "armhf-linux")) + (define builds-status (let* ((base-builds (builds-by-system-excluding-cross-builds @@ -93,7 +99,11 @@ (if (= (count 'target 'unknown) 0) bad-status unknown-status))))) - categorised-target-builds-by-system)))))) + (filter + (lambda (builds-by-system) + (member (car builds-by-system) + %systems-to-consider)) + categorised-target-builds-by-system))))))) (define tags-status (if (member "moreinfo" mumi-tags) |