diff options
Diffstat (limited to 'guix-build-coordinator/hooks.scm')
-rw-r--r-- | guix-build-coordinator/hooks.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index 5790384..22c1650 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -237,12 +237,10 @@ (let* ((build-details (datastore-find-build datastore build-id)) (derivation-name (assq-ref build-details 'derivation-name)) - (all-builds-for-derivation (datastore-count-builds-for-derivation - datastore - derivation-name - #:include-canceled? #f)) - (all-builds-for-derivation-count (length all-builds-for-derivation))) - + (all-builds-for-derivation-count (datastore-count-builds-for-derivation + datastore + derivation-name + #:include-canceled? #f))) (when (= 1 all-builds-for-derivation-count) (display (simple-format #f "~A: submitting ~A retries for\n ~A\n" |