From 33749786e4c962fddbd08ccfa15796e3bf0849ed Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 15 Feb 2020 19:54:42 +0000 Subject: Add verbose output to the query-build-servers script --- scripts/guix-data-service-query-build-servers.in | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'scripts') diff --git a/scripts/guix-data-service-query-build-servers.in b/scripts/guix-data-service-query-build-servers.in index e04329a..8f96bed 100644 --- a/scripts/guix-data-service-query-build-servers.in +++ b/scripts/guix-data-service-query-build-servers.in @@ -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))))) -- cgit v1.2.3