From ca3b8bfd7d2e46bc2ca915db30aec659cd46121f Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 30 Oct 2023 08:10:27 +0000
Subject: Sort and filter the branch package reproducibility table

Removing systems for which substitutes aren't available.
---
 guix-qa-frontpage/view/branch.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/guix-qa-frontpage/view/branch.scm b/guix-qa-frontpage/view/branch.scm
index 9deaf61..6914586 100644
--- a/guix-qa-frontpage/view/branch.scm
+++ b/guix-qa-frontpage/view/branch.scm
@@ -96,7 +96,14 @@
                                   (simple-format #f "width: ~A%;"
                                                  unknown-percent))))
                       ""))))))
-        (assoc-ref package-reproducibility "systems")))))
+        (sort
+         (filter
+          (match-lambda
+            ((system . _)
+             (not (member system '("powerpc-linux" "mips64el-linux")))))
+          (assoc-ref package-reproducibility "systems"))
+         (lambda (a b)
+           (string<? (car a) (car b))))))))
 
 (define (branch-view branch revisions derivation-changes
                      substitute-availability
-- 
cgit v1.2.3