Make it possible to show builds for an output

1 files changed, 20 insertions, 0 deletions

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