aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage/derivation-changes.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix-qa-frontpage/derivation-changes.scm')
-rw-r--r--guix-qa-frontpage/derivation-changes.scm11
1 files changed, 10 insertions, 1 deletions
diff --git a/guix-qa-frontpage/derivation-changes.scm b/guix-qa-frontpage/derivation-changes.scm
index ecfb781..f339dce 100644
--- a/guix-qa-frontpage/derivation-changes.scm
+++ b/guix-qa-frontpage/derivation-changes.scm
@@ -86,8 +86,14 @@
(match-lambda*
(((package . builds) result)
(let* ((build-statuses
+ ;; Invent a new status here "blocked"
(map (lambda (build)
- (assoc-ref build "status"))
+ (let ((status
+ (assoc-ref build "status")))
+ (if (and (string=? status "scheduled")
+ (assoc-ref build "potentially_blocked"))
+ "blocked"
+ status)))
builds))
(category
(cond
@@ -96,6 +102,8 @@
((and (not (member "suceeded" build-statuses))
(member "failed" build-statuses))
'failing)
+ ((member "blocked" build-statuses)
+ 'blocked)
(else
'unknown))))
@@ -105,6 +113,7 @@
,@(alist-delete category result)))))
'((succeeding . ())
(failing . ())
+ (blocked . ())
(unknown . ()))
builds-by-package)))))