diff options
author | Christopher Baines <mail@cbaines.net> | 2020-06-19 14:32:29 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-06-19 14:33:35 +0100 |
commit | d1d8132c6f8c0fb4d2335472d487635e0284cdf6 (patch) | |
tree | cb1f09d3a74501e0f6b5bdb2b9fe4f5ae4f0f64b | |
parent | fdc2f9f617656c3f3828250c52c4aae08fafc756 (diff) | |
download | build-coordinator-d1d8132c6f8c0fb4d2335472d487635e0284cdf6.tar build-coordinator-d1d8132c6f8c0fb4d2335472d487635e0284cdf6.tar.gz |
Extract out system and target from package-derivations-for-commit
-rw-r--r-- | scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in | 10 |
1 files changed, 6 insertions, 4 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 d765db5..0690244 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 @@ -111,11 +111,11 @@ (vector->list (assoc-ref data "channel_instances"))))) -(define (package-derivations-for-commit commit) +(define* (package-derivations-for-commit commit #:key system target) (let ((data (guix-data-service-request (string-append "/revision/" commit "/package-derivations.json") - '((system . "x86_64-linux") - (target . "none") + `((system . ,system) + (target . ,target) (field . "(no-additional-fields)") (all_results . "on"))))) (map (lambda (entry) @@ -164,7 +164,9 @@ (let ((unprocessed-package-derivations (filter (lambda (derivation) (not (hash-ref processed-derivations-hash derivation))) - (package-derivations-for-commit commit)))) + (package-derivations-for-commit commit + #:system "x86_64-linux" + #:target "none")))) (for-each submit-build unprocessed-package-derivations) (record-derivations-as-processed unprocessed-package-derivations))) |