diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-11-15 21:24:28 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-11-15 21:39:41 +0000 |
| commit | e7925610d59b32c6893de0a1a0b418aebb62a000 (patch) | |
| tree | 64a229788162a837700b447ec6bba3f548224069 /guix-qa-frontpage/derivation-changes.scm | |
| parent | a75001d2957535d6d7a30a7a3589b1e8b2a3153e (diff) | |
| download | qa-frontpage-e7925610d59b32c6893de0a1a0b418aebb62a000.tar qa-frontpage-e7925610d59b32c6893de0a1a0b418aebb62a000.tar.gz | |
Split out blocked builds from unknown builds
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))))) |