From 870ba33917f942d51c3f1b6f74f8287af3bb9c9c Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 19 May 2020 17:39:14 +0100 Subject: Make it possible to show builds for an output --- scripts/guix-build-coordinator.in | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'scripts') diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index e5493de..5c00d7a 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -336,6 +336,26 @@ processed?: ~A no-build-submitted-response) (simple-format #t "build submitted as ~A\n" (assoc-ref response "build-submitted"))))))))) + (("output" rest ...) + (let ((opts (parse-options (append %base-options + %client-options) + (append %base-option-defaults + %client-option-defaults) + rest))) + (match (assq-ref opts 'arguments) + ((output) + (let ((details (request-output-details (assq-ref opts 'coordinator) + output))) + (for-each + (lambda (build) + (simple-format + #t "~A:\n result: ~A\n processed: ~A\n priority: ~A\n derivation: ~A\n\n" + (assoc-ref build "uuid") + (assoc-ref build "result") + (assoc-ref build "processed") + (assoc-ref build "priority") + (assoc-ref build "derivation"))) + (vector->list (assoc-ref details "builds")))))))) (("agent" "new" rest ...) (let ((opts (parse-options (append %agent-options %client-options -- cgit v1.2.3