diff options
author | Christopher Baines <mail@cbaines.net> | 2020-12-27 10:33:33 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-12-27 10:33:33 +0000 |
commit | 528f0871541c2bbd74a11d873fa0b74b40a1b74f (patch) | |
tree | 25c6e66194fb9be274a1f65a59fd15ab54ffdb73 /guix-build-coordinator/hooks.scm | |
parent | c76821f570cfb8702e345859f827b06b28fc9b43 (diff) | |
download | build-coordinator-528f0871541c2bbd74a11d873fa0b74b40a1b74f.tar build-coordinator-528f0871541c2bbd74a11d873fa0b74b40a1b74f.tar.gz |
Fix issues around datastore-count-builds-for-derivation
My refactoring went quite wrong.
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" |