diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-26 19:18:17 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-26 19:18:17 +0000 |
| commit | 0535368864fa0d8e17ce9ee97ebb98dc67517af2 (patch) | |
| tree | 3514ec586328604e1699b1c5b89b01e723413a1b /guix-build-coordinator/hooks.scm | |
| parent | 5e3ce858dcba23a333470ee2785088f3741d4560 (diff) | |
| download | build-coordinator-0535368864fa0d8e17ce9ee97ebb98dc67517af2.tar build-coordinator-0535368864fa0d8e17ce9ee97ebb98dc67517af2.tar.gz | |
Change how some submit build options handle canceled builds
Don't include canceled builds in the build-for-derivation-exists? or
build-for-output-already-exists? options. I think it makes sense to not
include canceled builds in these options.
Diffstat (limited to 'guix-build-coordinator/hooks.scm')
| -rw-r--r-- | guix-build-coordinator/hooks.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index a4a8299..5790384 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -237,8 +237,10 @@ (let* ((build-details (datastore-find-build datastore build-id)) (derivation-name (assq-ref build-details 'derivation-name)) - (all-builds-for-derivation (datastore-list-builds-for-derivation - datastore 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))) (when (= 1 all-builds-for-derivation-count) |