diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-08-19 20:04:53 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-08-19 20:04:53 +0100 |
| commit | 3d98116787a2a521f0cdc37315ec0be45f2c924e (patch) | |
| tree | 44958e296a85826c5abf5b37f1dfd0459e82c81c /guix-qa-frontpage/manage-builds.scm | |
| parent | 78c907dac2fb5bda11c8dc085bfb2370d1ec9557 (diff) | |
| download | qa-frontpage-3d98116787a2a521f0cdc37315ec0be45f2c924e.tar qa-frontpage-3d98116787a2a521f0cdc37315ec0be45f2c924e.tar.gz | |
Skip updating derived priorities when canceling builds
As this should be unnecessary.
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index da19589..430509d 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -441,7 +441,8 @@ (retry-on-error (lambda () (send-cancel-build-request build-coordinator - (assoc-ref build-details "uuid"))) + (assoc-ref build-details "uuid") + #:skip-updating-derived-priorities? #t)) #:times 6 #:delay 15) (simple-format (current-error-port) @@ -475,7 +476,8 @@ (retry-on-error (lambda () (send-cancel-build-request build-coordinator - (assoc-ref build-details "uuid"))) + (assoc-ref build-details "uuid") + #:skip-updating-derived-priorities? #t)) #:times 6 #:delay 15) (simple-format (current-error-port) |