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

Add options to the query-build-servers script

Browse source 
So you can select to query specific build servers.
This commit is contained in:
Christopher Baines 2019-12-10 08:28:38 +00:00
parent f13077d087
commit c90f411e5e
2 changed files with 42 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
guix-data-service/builds.scm
View file

@ -17,15 +17,17 @@
#:use-module (guix-data-service model nar)
#:export (query-build-servers))
(define (query-build-servers conn revision-commits)
(define (query-build-servers conn build-server-ids revision-commits)
(while #t
(let ((build-servers (select-build-servers conn)))
(for-each
(match-lambda
((id url lookup-all-derivations?)
(when lookup-all-derivations?
(simple-format #t "\nQuerying ~A\n" url)
(query-build-server conn id url revision-commits))))
(when (or (not build-servers)
(member id build-server-ids))
(when lookup-all-derivations?
(simple-format #t "\nQuerying ~A\n" url)
(query-build-server conn id url revision-commits)))))
build-servers))))
(define (query-build-server conn id url revision-commits)