diff options
Diffstat (limited to 'guix-qa-frontpage/derivation-changes.scm')
-rw-r--r-- | guix-qa-frontpage/derivation-changes.scm | 11 |
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))))) |