aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-qa-frontpage/server.scm4
-rw-r--r--guix-qa-frontpage/view/patches.scm4
2 files changed, 6 insertions, 2 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm
index 86e7182..c46f3ef 100644
--- a/guix-qa-frontpage/server.scm
+++ b/guix-qa-frontpage/server.scm
@@ -315,6 +315,10 @@
#t)
((eq? b-overall-status 'important-checks-passing)
#f)
+ ((eq? a-overall-status 'waiting-for-build-results)
+ #t)
+ ((eq? b-overall-status 'waiting-for-build-results)
+ #f)
((eq? a-overall-status 'unknown)
#f)
((eq? b-overall-status 'unknown)
diff --git a/guix-qa-frontpage/view/patches.scm b/guix-qa-frontpage/view/patches.scm
index 3fffa3b..fc5c575 100644
--- a/guix-qa-frontpage/view/patches.scm
+++ b/guix-qa-frontpage/view/patches.scm
@@ -38,7 +38,7 @@
((eq? status 'waiting-for-build-results)
'(span (@ (aria-label "status: lightblue")
(class "lightblue-dot"))
- "?"))
+ (*ENTITY* "#127959")))
((eq? status 'patches-missing)
'(span (@ (aria-label "status: pink")
(class "pink-dot"))
@@ -151,7 +151,7 @@ will appear first.")
((eq? status 'waiting-for-build-results)
`((span (@ (aria-label "status: lightblue")
(class "lightblue-dot"))
- "?")))
+ (*ENTITY* "#127959"))))
((eq? status 'patches-missing)
`((span (@ (aria-label "status: pink")
(class "pink-dot"))