aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage/server.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-06-25 10:14:22 +0100
committerChristopher Baines <mail@cbaines.net>2023-06-25 10:14:22 +0100
commit7e139e0ea22b90d485eef03e129255956c533e9b (patch)
tree168dc6aa10eab609d2b985083b90a5e4ff5aadf2 /guix-qa-frontpage/server.scm
parent8d435c480dde169da2c91c665d09e71fdd079aa1 (diff)
downloadqa-frontpage-7e139e0ea22b90d485eef03e129255956c533e9b.tar
qa-frontpage-7e139e0ea22b90d485eef03e129255956c533e9b.tar.gz
Better handle systems with expected low substitute availability
And include powerpc64le-linux in this list, as the bordeaux build farm doesn't have consistent capacity for this system yet.
Diffstat (limited to 'guix-qa-frontpage/server.scm')
-rw-r--r--guix-qa-frontpage/server.scm14
1 files changed, 8 insertions, 6 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm
index 82b8a43..497085d 100644
--- a/guix-qa-frontpage/server.scm
+++ b/guix-qa-frontpage/server.scm
@@ -211,9 +211,10 @@
(systems-with-low-substitute-availability
(get-systems-with-low-substitute-availability
master-branch-substitute-availability
- (delete "i586-gnu"
- %systems-to-submit-builds-for
- string=?))))
+ (lset-difference
+ string=?
+ %systems-to-submit-builds-for
+ %systems-with-expected-low-substitute-availability))))
(render-html
#:sxml
(patches-view (if (> (length sorted-latest-series)
@@ -382,9 +383,10 @@
(systems-with-low-substitute-availability
(get-systems-with-low-substitute-availability
master-branch-substitute-availability
- (delete "i586-gnu"
- %systems-to-submit-builds-for
- string=?))))
+ (lset-difference
+ string=?
+ %systems-to-submit-builds-for
+ %systems-with-expected-low-substitute-availability))))
(render-html
#:sxml (issue-view number
series