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

Add verbose output to the query-build-servers script

Browse source
This commit is contained in:
Christopher Baines 2020-02-15 19:54:42 +00:00
parent 617af6c9d3
commit 33749786e4
2 changed files with 45 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -35,7 +35,10 @@
(cons (string->number arg)
(or (assoc-ref result 'build-server-ids)
'()))
(alist-delete 'build-server-ids result))))))
(alist-delete 'build-server-ids result))))
(option '("verbose") #f #f
(lambda (opt name _ result)
(alist-cons 'verbose #t result)))))
(define %default-options
;; Alist of default option values
@ -61,4 +64,5 @@
(lambda (conn)
(query-build-servers conn
(assq-ref opts 'build-server-ids)
(assq-ref opts 'revision-commits)))))
(assq-ref opts 'revision-commits)
#:verbose? (assq-ref opts 'verbose)))))