From 375a6a37dca07cab81749805e5e4a07d3ac72cc4 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 1 Nov 2020 22:52:53 +0000 Subject: Support not querying pending builds As this can take some time. --- scripts/guix-data-service-query-build-servers.in | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'scripts') diff --git a/scripts/guix-data-service-query-build-servers.in b/scripts/guix-data-service-query-build-servers.in index ba92a9e..b386ee1 100644 --- a/scripts/guix-data-service-query-build-servers.in +++ b/scripts/guix-data-service-query-build-servers.in @@ -44,6 +44,9 @@ (or (assoc-ref result 'systems) '())) (alist-delete 'systems result)))) + (option '("dont-query-pending-builds") #f #f + (lambda (opt name _ result) + (alist-cons 'dont-query-pending-builds #t result))) (option '("verbose") #f #f (lambda (opt name _ result) (alist-cons 'verbose #t result))))) @@ -78,4 +81,6 @@ (assq-ref opts 'systems) (assq-ref opts 'revision-commits) (assq-ref opts 'outputs) - #:verbose? (assq-ref opts 'verbose))))) + #:verbose? (assq-ref opts 'verbose) + #:query-pending-builds? + (not (assq-ref opts 'dont-query-pending-builds)))))) -- cgit v1.2.3