diff options
author | Christopher Baines <mail@cbaines.net> | 2020-11-01 22:49:49 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-11-01 22:49:49 +0000 |
commit | f485423d5aabfbfb48ccf258d6e6ea6f0404db10 (patch) | |
tree | feb83671299785e8327205d79bf0ee8e4fa6ddcc /scripts | |
parent | 2732ba8f685c90e5ec453b5de6702af67d1e3b98 (diff) | |
download | data-service-f485423d5aabfbfb48ccf258d6e6ea6f0404db10.tar data-service-f485423d5aabfbfb48ccf258d6e6ea6f0404db10.tar.gz |
Allow only fetching builds for a specific system
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/guix-data-service-query-build-servers.in | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/scripts/guix-data-service-query-build-servers.in b/scripts/guix-data-service-query-build-servers.in index 8b87310..ba92a9e 100644 --- a/scripts/guix-data-service-query-build-servers.in +++ b/scripts/guix-data-service-query-build-servers.in @@ -36,6 +36,14 @@ (or (assoc-ref result 'build-server-ids) '())) (alist-delete 'build-server-ids result)))) + (option '("system") #t #f + (lambda (opt name arg result) + (alist-cons + 'systems + (cons arg + (or (assoc-ref result 'systems) + '())) + (alist-delete 'systems result)))) (option '("verbose") #f #f (lambda (opt name _ result) (alist-cons 'verbose #t result))))) @@ -67,6 +75,7 @@ (lambda (conn) (query-build-servers conn (assq-ref opts 'build-server-ids) + (assq-ref opts 'systems) (assq-ref opts 'revision-commits) (assq-ref opts 'outputs) #:verbose? (assq-ref opts 'verbose))))) |