diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-25 12:31:45 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-25 12:31:45 +0100 |
| commit | 54a11820d0846026784e59f9aee5d9346aaf4d64 (patch) | |
| tree | de5064024e962a2ac528e4b324e503ddab62e45b /guix-qa-frontpage | |
| parent | cba235bf33d3fef416cef4dd14f4105930bbbbf1 (diff) | |
| download | qa-frontpage-54a11820d0846026784e59f9aee5d9346aaf4d64.tar qa-frontpage-54a11820d0846026784e59f9aee5d9346aaf4d64.tar.gz | |
Skip updating derived priorities for branch builds
As I think this can be skipped without affecting the derived priorities.
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index dbc3dac..f0eaacb 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -311,7 +311,8 @@ (shuffle-derivations-and-priorities! derivations-and-priorities) build-ids-to-keep-set - branch-commit))) + branch-commit + #:skip-updating-derived-priorities? #t))) (begin (simple-format (current-error-port) @@ -362,7 +363,8 @@ branch derivations-and-priorities (set) - branch-commit))))))) + branch-commit + #:skip-updating-derived-priorities? #t))))))) (define (take* lst n) (if (< (length lst) n) @@ -484,7 +486,8 @@ (sleep 3600))))) (define* (submit-build build-coordinator guix-data-service derivation - #:key (priority 0) (tags '())) + #:key (priority 0) (tags '()) + skip-updating-derived-priorities?) (retry-on-error (lambda () (let ((response @@ -499,7 +502,9 @@ #t #t #t - tags)) + tags + #:skip-updating-derived-priorities? + skip-updating-derived-priorities?)) #:timeout 240))) (let ((no-build-submitted-response (assoc-ref response "no-build-submitted"))) @@ -763,7 +768,8 @@ build-ids-to-keep-set target-commit #:key build-limit - (build-count-priority-penalty (const 0))) + (build-count-priority-penalty (const 0)) + skip-updating-derived-priorities?) (define (submit-builds build-details build-ids-to-keep-set) (define submit-build/fiberized @@ -782,7 +788,9 @@ ((key . ,category-name) (value . ,category-value)) ((key . revision) - (value . ,target-commit))))))) + (value . ,target-commit))) + #:skip-updating-derived-priorities? + skip-updating-derived-priorities?)))) (fibers-for-each submit-single build-details)) |