cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support not querying pending builds

Browse source 
As this can take some time.
This commit is contained in:
Christopher Baines 2020-11-01 22:52:53 +00:00
parent f485423d5a
commit 375a6a37dc
2 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
scripts/guix-data-service-query-build-servers.in
View file

@ -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))))))