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

Allow only fetching builds for a specific system

Browse source
This commit is contained in:
Christopher Baines 2020-11-01 22:49:49 +00:00
parent 2732ba8f68
commit f485423d5a
2 changed files with 56 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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