diff options
Diffstat (limited to 'guix-qa-frontpage/issue.scm')
| -rw-r--r-- | guix-qa-frontpage/issue.scm | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/guix-qa-frontpage/issue.scm b/guix-qa-frontpage/issue.scm index 67a4c78..6ceb733 100644 --- a/guix-qa-frontpage/issue.scm +++ b/guix-qa-frontpage/issue.scm @@ -34,6 +34,7 @@ #:use-module (guix-qa-frontpage guix-data-service) #:use-module (guix-qa-frontpage derivation-changes) #:export (%overall-statuses + %systems-to-consider-in-issue-status status-index issue-patches-overall-status @@ -45,6 +46,7 @@ (define good-status 'important-checks-passing) (define bad-status 'important-checks-failing) (define needs-looking-at-status 'needs-looking-at) +(define waiting-for-build-results-status 'waiting-for-build-results) (define unknown-status 'unknown) (define large-number-of-builds-status 'large-number-of-builds) (define failed-to-apply-patches-status 'failed-to-apply-patches) @@ -55,6 +57,7 @@ (list reviewed-looks-good-status good-status large-number-of-builds-status + waiting-for-build-results-status unknown-status needs-looking-at-status failed-to-apply-patches-status @@ -71,6 +74,12 @@ (list-ref %overall-statuses (apply max (map status-index statuses)))) +(define %systems-to-consider-in-issue-status + '("x86_64-linux" + "i686-linux" + "aarch64-linux" + "armhf-linux")) + (define (issue-patches-overall-status patches-failed-to-apply? patches-missing? builds-missing? @@ -78,12 +87,6 @@ comparison-details mumi-tags debbugs-usertags) - (define %systems-to-consider - '("x86_64-linux" - "i686-linux" - "aarch64-linux" - "armhf-linux")) - (define (guix-data-service-failed?) (and=> (assq-ref comparison-details 'exception) @@ -144,11 +147,11 @@ new-failures) needs-looking-at-status bad-status)) - unknown-status))))) + waiting-for-build-results-status))))) (filter (lambda (builds-by-system) (member (car builds-by-system) - %systems-to-consider)) + %systems-to-consider-in-issue-status)) derivation-changes-counts)))))) (define tags-status |