aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2022-05-27 14:14:33 +0100
committerChristopher Baines <mail@cbaines.net>2022-05-27 14:14:33 +0100
commit7f4a317cea571bd9ba9a171a2669300ca8d2ca38 (patch)
tree0e493a135fef6344f13e8780e0bf009cc544e90b /scripts
parent3de63f1f66d5f0eb157ee60bc864404f386ee2b0 (diff)
downloadbuild-coordinator-7f4a317cea571bd9ba9a171a2669300ca8d2ca38.tar
build-coordinator-7f4a317cea571bd9ba9a171a2669300ca8d2ca38.tar.gz
Remove left over peek call from queue builds script
Diffstat (limited to 'scripts')
-rw-r--r--scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in4
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