diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-25 12:25:39 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-25 13:19:12 +0100 |
| commit | 406db8a8db53731de432c452902a098915e876c2 (patch) | |
| tree | c13aed14b33fd6cb567c38aa2b2ea3391c900fde /guix-build-coordinator | |
| parent | c92067f783ce35b988a723ed78debfc2162bf2a8 (diff) | |
| download | build-coordinator-406db8a8db53731de432c452902a098915e876c2.tar build-coordinator-406db8a8db53731de432c452902a098915e876c2.tar.gz | |
Add option to skip updating derived priorities when submitting builds
As I think this can be skipped if you're submitting a batch of interdependent
builds with the same priority.
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 10 | ||||
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 5 |
2 files changed, 13 insertions, 2 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 354cb31..bffec12 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -533,6 +533,10 @@ body "ensure-all-related-derivation-outputs-have-builds") '(#:ensure-all-related-derivation-outputs-have-builds? #t) '()) + ,@(if (assoc-ref + body "skip-updating-derived-priorities") + '(#:skip-updating-derived-priorities? #t) + '()) ,@(if (assoc-ref body "tags") `(#:tags ,(map @@ -773,7 +777,8 @@ ensure-all-related-derivation-outputs-have-builds? tags #:key - defer-until) + defer-until + skip-updating-derived-priorities?) (send-request coordinator-uri 'POST "/builds" @@ -791,6 +796,9 @@ ,@(if ensure-all-related-derivation-outputs-have-builds? '((ensure-all-related-derivation-outputs-have-builds . #t)) '()) + ,@(if skip-updating-derived-priorities? + '((skip-updating-derived-priorities . #t)) + '()) ,@(if (null? tags) '() `((tags . ,(list->vector tags)))) diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 59891d1..af9938b 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -612,6 +612,7 @@ (ignore-if-build-for-derivation-exists? #f) (ignore-if-build-for-outputs-exists? #f) (ensure-all-related-derivation-outputs-have-builds? #f) + skip-updating-derived-priorities? (tags '()) defer-until (read-drv read-derivation-from-file*)) @@ -715,7 +716,9 @@ (store-build derivation-file build-id priority - tags) + tags + #:skip-updating-other-build-derived-priorities + skip-updating-derived-priorities?) (for-each (match-lambda |