diff options
| -rw-r--r-- | guix-build-coordinator/hooks.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index 7673ec3..cd57168 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -363,9 +363,12 @@ (let* ((builds-for-output (datastore-list-builds-for-output datastore missing-input)) - (processed-builds + (successful-builds (filter (lambda (build-details) - (assq-ref build-details 'processed)) + (and + (assq-ref build-details 'processed) + (string=? (assq-ref build-details 'result) + "success"))) builds-for-output)) (pending-builds (filter (lambda (build-details) @@ -373,8 +376,8 @@ (not (assq-ref build-details 'processed)) (not (assq-ref build-details 'canceled)))) builds-for-output))) - (if (or (null? processed-builds) - (null? pending-builds)) + (if (and (null? successful-builds) + (null? pending-builds)) (begin (simple-format #t "submitting build for ~A\n" |