diff options
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 29 |
1 files changed, 18 insertions, 11 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index f8bb5fe..7f93e47 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -541,11 +541,12 @@ "") (member (assoc-ref change "system") %systems-to-submit-builds-for)) - (if (= (vector-length - (assoc-ref change "builds")) - 0) - #t - #f) + (not + (vector-any + (lambda (build) + (member (assoc-ref build "status") + '("scheduled" "started" "succeeded" "failed"))) + (assoc-ref change "builds"))) #f)) (vector-fold (lambda (_ result package) @@ -644,16 +645,18 @@ (member (assoc-ref change "system") %systems-to-submit-builds-for)) (loop (cdr changes) - (if (= (vector-length - (assoc-ref change "builds")) - 0) + (if (vector-any + (lambda (build) + (member (assoc-ref build "status") + '("scheduled" "started" "succeeded" "failed"))) + (assoc-ref change "builds")) + builds-to-submit-details ; build exists (cons (list (assoc-ref change "derivation-file-name") (if (number? priority) priority (priority change))) - builds-to-submit-details) - builds-to-submit-details) ; build exists + builds-to-submit-details)) (fold (lambda (build result) (if (member (assoc-ref build "status") '("scheduled" "started")) @@ -735,7 +738,11 @@ (when (and (not (member name %system-tests-that-change-every-revision)) - (= (vector-length builds) 0)) + (vector-any + (lambda (build) + (member (assoc-ref build "status") + '("scheduled" "started" "succeeded" "failed"))) + builds)) (submit-build build-coordinator guix-data-service (assoc-ref system-test-details "derivation") |