aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/client-communication.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r--guix-build-coordinator/client-communication.scm10
1 files changed, 9 insertions, 1 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))))