diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-data-service-query-build-servers.in | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/scripts/guix-data-service-query-build-servers.in b/scripts/guix-data-service-query-build-servers.in index 8f96bed..8b87310 100644 --- a/scripts/guix-data-service-query-build-servers.in +++ b/scripts/guix-data-service-query-build-servers.in @@ -50,12 +50,15 @@ (lambda (opt name arg result) (error "unrecognized option" name)) (lambda (arg result) - (alist-cons - 'revision-commits - (cons arg - (or (assoc-ref result 'revision-commits) - '())) - (alist-delete 'revision-commits result))) + (let ((type (if (string-prefix? "/gnu/store/" arg) + 'outputs + 'revision-commits))) + (alist-cons + type + (cons arg + (or (assoc-ref result type) + '())) + (alist-delete type result)))) %default-options)) (let ((opts (parse-options (cdr (program-arguments))))) @@ -65,4 +68,5 @@ (query-build-servers conn (assq-ref opts 'build-server-ids) (assq-ref opts 'revision-commits) + (assq-ref opts 'outputs) #:verbose? (assq-ref opts 'verbose))))) |