diff options
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/view/shared.scm | 46 |
1 files changed, 33 insertions, 13 deletions
diff --git a/guix-qa-frontpage/view/shared.scm b/guix-qa-frontpage/view/shared.scm index a9a7a9a..ad0a52c 100644 --- a/guix-qa-frontpage/view/shared.scm +++ b/guix-qa-frontpage/view/shared.scm @@ -107,6 +107,9 @@ removed-working removed-failing removed-blocked + unknown-to-working + unknown-to-failing + unknown-to-blocked unknown)) (define (builds->change-by-system builds-by-system) @@ -154,24 +157,38 @@ 'still-failing) ((and (eq? base-status target-status 'blocked)) 'still-blocked) + ((and (or (eq? 'unknown base-status) + (eq? 'blocked base-status)) + (eq? 'succeeding target-status)) + 'unknown-to-working) + ((and (or (eq? 'unknown base-status) + (eq? 'blocked base-status)) + (eq? 'failing target-status)) + 'unknown-to-failing) + ((and (eq? 'unknown base-status) + (eq? 'blocked target-status)) + 'unknown-to-blocked) (else 'unknown)))))) builds-by-system)) (define (display-builds builds derivations change) (define %color-for-change - '((fixed . "green") - (broken . "red") - (blocked . "yellow") - (still-working . "lightgreen") - (still-failing . "#FFCCCB") - (still-blocked . "lightyellow") - (new-working . "lightgreen") - (new-failing . "red") - (new-blocked . "lightyellow") - (removed-working . "") - (removed-failing . "") - (removed-blocked . "") - (unknown . "lightgrey"))) + '((fixed . "green") + (broken . "red") + (blocked . "yellow") + (still-working . "lightgreen") + (still-failing . "#FFCCCB") + (still-blocked . "lightyellow") + (new-working . "lightgreen") + (new-failing . "red") + (new-blocked . "lightyellow") + (removed-working . "") + (removed-failing . "") + (removed-blocked . "") + (unknown-to-working . "lightgreen") + (unknown-to-failing . "#FFCCCB") + (unknown-to-blocked . "lightyellow") + (unknown . "lightgrey"))) (if builds (let ((base-status @@ -427,6 +444,7 @@ "/package-changes?" system "-change=fixed&" system "-change=still-working&" + system "-change=unknown-to-working&" system "-change=new-working"))) ,(count 'target 'succeeding))) (td ,@(if (> (count 'target 'failing) @@ -439,6 +457,7 @@ "/package-changes?" system "-change=broken&" system "-change=still-failing&" + system "-change=unknown-to-failing&" system "-change=new-failing"))) ,(count 'target 'failing))) (td ,@(if (> (count 'target 'blocked) @@ -451,6 +470,7 @@ "/package-changes?" system "-change=blocked&" system "-change=still-blocked&" + system "-change=unknown-to-blocked&" system "-change=new-blocked"))) ,(count 'target 'blocked))) (td (@ ,@(if (> (count 'target 'unknown) |