diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-02-15 19:54:42 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-02-15 19:54:42 +0000 |
| commit | 33749786e4c962fddbd08ccfa15796e3bf0849ed (patch) | |
| tree | c88c11f1332bc99afc9b5180c1557cbacea7a7b0 /scripts | |
| parent | 617af6c9d388f62b87402311684744035d701d80 (diff) | |
| download | data-service-33749786e4c962fddbd08ccfa15796e3bf0849ed.tar data-service-33749786e4c962fddbd08ccfa15796e3bf0849ed.tar.gz | |
Add verbose output to the query-build-servers script
Diffstat (limited to 'scripts')
| -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))))) |