diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-10-30 08:10:27 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-10-30 08:10:27 +0000 |
| commit | ca3b8bfd7d2e46bc2ca915db30aec659cd46121f (patch) | |
| tree | 6e1b67c9ef89e67babc8c5474d307762edac0331 /guix-qa-frontpage/view/branch.scm | |
| parent | afa6b13f6e3369f611917f5ffe5e0534c6cf4dc4 (diff) | |
| download | qa-frontpage-ca3b8bfd7d2e46bc2ca915db30aec659cd46121f.tar qa-frontpage-ca3b8bfd7d2e46bc2ca915db30aec659cd46121f.tar.gz | |
Sort and filter the branch package reproducibility table
Removing systems for which substitutes aren't available.
Diffstat (limited to 'guix-qa-frontpage/view/branch.scm')
| -rw-r--r-- | guix-qa-frontpage/view/branch.scm | 9 |
1 files changed, 8 insertions, 1 deletions
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 |