diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-02-02 09:04:24 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-02 09:04:24 +0000 |
| commit | 6119d07c8f2250bdce90379c3549141748a8e827 (patch) | |
| tree | e9d09ee97bf105bcce279eb839256d182280734e /scripts | |
| parent | 75d13b9b90648722051a1e7fed74671ab62e9e5c (diff) | |
| download | build-coordinator-6119d07c8f2250bdce90379c3549141748a8e827.tar build-coordinator-6119d07c8f2250bdce90379c3549141748a8e827.tar.gz | |
Make it possible to look for blocking builds for a specific system
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 7d482d0..e6ebc01 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -245,6 +245,13 @@ (systems . ()) (not-systems . ()))) +(define %build-show-blocking-options + (list (option '("system") #t #f + (lambda (opt name arg result) + (alist-cons 'system + arg + (alist-delete 'system result)))))) + (define %agent-tag-options (list (option '("tag") #t #f (lambda (opt name arg result) @@ -508,12 +515,15 @@ tags: (- (vector-length (assoc-ref response "builds")) 1)) "uuid"))))))) (("build" "show-blocking" rest ...) - (let ((opts (parse-options %base-options + (let ((opts (parse-options (append %base-options + %client-options + %build-show-blocking-options) (append %base-option-defaults %client-option-defaults) rest))) (let ((response (request-failed-builds-with-blocking-count-list - (assq-ref opts 'coordinator)))) + (assq-ref opts 'coordinator) + (assq-ref opts 'system)))) (for-each (lambda (build) (format |