From 542e257161a960f82bf67e65f87c50674fc41ebc Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 20 Nov 2022 12:50:29 +0000
Subject: Look at a subset of the systems for the overall issue status

---
 guix-qa-frontpage/issue.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'guix-qa-frontpage')

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)
-- 
cgit v1.2.3