diff options
Diffstat (limited to 'scripts/guix-data-service-query-build-servers.in')
-rw-r--r-- | scripts/guix-data-service-query-build-servers.in | 8 |
1 files changed, 6 insertions, 2 deletions
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))))) |