diff options
| -rw-r--r-- | scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in | 26 |
1 files changed, 24 insertions, 2 deletions
diff --git a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in index 69e320d..d379c4b 100644 --- a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in +++ b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in @@ -171,6 +171,19 @@ #:times 30 #:delay 30)) +(define (priority-for-derivation type system target) + (cond + ((eq? type 'channel-instance) + (if (string=? system "x86_64-linux") + 1000 + 500)) + ((eq? type 'package) + (if (string=? system "x86_64-linux") + 500 + 0)) + (else + 0))) + (define* (submit-builds-for-revision coordinator guix-data-service commit @@ -187,7 +200,10 @@ (submit-build coordinator guix-data-service derivation - #:priority 1000)) + #:priority + (priority-for-derivation 'channel-instance + system + target))) (channel-instance-derivations-for-commit guix-data-service commit system)))) @@ -201,7 +217,13 @@ #:target target)))) (for-each (lambda (derivation) - (submit-build coordinator guix-data-service derivation)) + (submit-build coordinator + guix-data-service + derivation + #:priority + (priority-for-derivation 'package + system + target))) unprocessed-package-derivations) (record-derivations-as-processed unprocessed-package-derivations)))) systems-and-targets)) |