From c29a46e8d298d3a1f16b2d4f75fa96759741afb8 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 21 Feb 2023 12:42:12 +0000 Subject: Support skipping updating derived priorities when cancelling builds Since this is quite expensive and can be unnecessary when you're cancelling a specific batch of builds where you know the prioritisation won't affect the remaining builds. --- guix-build-coordinator/client-communication.scm | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) (limited to 'guix-build-coordinator/client-communication.scm') diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 39b0c23..d9f2c88 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -178,8 +178,16 @@ . ,(cancel-build build-coordinator uuid #:ignore-if-build-required-by-another? - (string=? (assq-ref query-parameters - 'ignore-if-build-required-by-another) + (string=? (or (assq-ref + query-parameters + 'ignore-if-build-required-by-another) + "") + "true") + #:skip-updating-derived-priorities? + (string=? (or + (assq-ref query-parameters + 'skip-updating-derived-priorities) + "") "true"))))))) (('POST "build" uuid "update-priority") (update-build-priority @@ -595,14 +603,19 @@ (define* (send-cancel-build-request coordinator-uri build-id - #:key (ignore-if-build-required-by-another? #t)) + #:key + (ignore-if-build-required-by-another? #t) + skip-updating-derived-priorities?) (send-request coordinator-uri 'POST (string-append "/build/" build-id "/cancel" "?ignore-if-build-required-by-another=" (if ignore-if-build-required-by-another? "true" - "false")))) + "false") + (if skip-updating-derived-priorities? + "&skip-updating-derived-priorities=true" + "")))) (define (send-update-build-priority-request coordinator-uri -- cgit v1.2.3