From e61b3883c65c896c08d2b70652b0b7b15703d583 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 21 Dec 2020 16:43:55 +0000 Subject: Fix default-build-missing-inputs-hook --- guix-build-coordinator/hooks.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'guix-build-coordinator/hooks.scm') 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" -- cgit v1.2.3