diff options
author | Christopher Baines <mail@cbaines.net> | 2022-05-27 14:14:33 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-05-27 14:14:33 +0100 |
commit | 7f4a317cea571bd9ba9a171a2669300ca8d2ca38 (patch) | |
tree | 0e493a135fef6344f13e8780e0bf009cc544e90b | |
parent | 3de63f1f66d5f0eb157ee60bc864404f386ee2b0 (diff) | |
download | build-coordinator-7f4a317cea571bd9ba9a171a2669300ca8d2ca38.tar build-coordinator-7f4a317cea571bd9ba9a171a2669300ca8d2ca38.tar.gz |
Remove left over peek call from queue builds script
-rw-r--r-- | scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in | 4 |
1 files changed, 2 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 e7fbdb3..da985dc 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 @@ -138,14 +138,14 @@ (let ((data (guix-data-service-request guix-data-service (string-append "/revision/" commit "/package-derivations.json") - (peek `((system . ,system) + `((system . ,system) (target . ,target) (field . "(no-additional-fields)") ,@(if guix-data-service-build-server-id `((no_build_from_build_server . ,guix-data-service-build-server-id)) '()) - (all_results . "on")))))) + (all_results . "on"))))) (map (lambda (entry) (assoc-ref entry "derivation")) (vector->list |