diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-21 16:43:55 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-21 16:43:55 +0000 |
| commit | e61b3883c65c896c08d2b70652b0b7b15703d583 (patch) | |
| tree | 7f63892b90ac84621411f9ab6999dbd30ce9ba70 /guix-build-coordinator/hooks.scm | |
| parent | 9128f96ced76bd01c87fb766c3b30dc3b2100d42 (diff) | |
| download | build-coordinator-e61b3883c65c896c08d2b70652b0b7b15703d583.tar build-coordinator-e61b3883c65c896c08d2b70652b0b7b15703d583.tar.gz | |
Fix default-build-missing-inputs-hook
Diffstat (limited to 'guix-build-coordinator/hooks.scm')
| -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" |