diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-11-01 22:52:53 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-11-01 22:52:53 +0000 |
| commit | 375a6a37dca07cab81749805e5e4a07d3ac72cc4 (patch) | |
| tree | ecbeb53a31b9af05090c3644a1fe49b9523d44f0 /scripts | |
| parent | f485423d5aabfbfb48ccf258d6e6ea6f0404db10 (diff) | |
| download | data-service-375a6a37dca07cab81749805e5e4a07d3ac72cc4.tar data-service-375a6a37dca07cab81749805e5e4a07d3ac72cc4.tar.gz | |
Support not querying pending builds
As this can take some time.
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-data-service-query-build-servers.in | 7 |
1 files changed, 6 insertions, 1 deletions
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)))))) |