From 0ef67e75d1c587df201dd324235a629dedcd93fd Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 27 Apr 2020 17:48:54 +0100
Subject: Improve the output from the agent process

---
 guix-build-coordinator/agent.scm | 33 ++++++++++++++++++++-------------
 1 file changed, 20 insertions(+), 13 deletions(-)

diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index 537ff4a..0a09932 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -54,19 +54,23 @@
                     (let ((pre-build-status (pre-build-process substitute-urls
                                                                derivation-name)))
                       (if (eq? (assq-ref pre-build-status 'result) 'success)
-                          (let ((result (perform-build derivation-name)))
-                            (and=> (derivation-log-file derivation-name)
-                                   (lambda (log-file)
-                                     (submit-log-file
-                                      coordinator-uri uuid password
-                                      (assoc-ref build "uuid")
-                                      log-file)))
-                            ((if result
-                                 post-build-success
-                                 post-build-failure)
-                             uuid coordinator-uri password
-                             (assoc-ref build "uuid")
-                             derivation-name))
+                          (begin
+                            (simple-format #t "setup successful, building: ~A\n"
+                                           derivation-name)
+                            (let ((result (perform-build derivation-name)))
+                              (and=> (derivation-log-file derivation-name)
+                                     (lambda (log-file)
+                                       (simple-format #t "uploading log file\n")
+                                       (submit-log-file
+                                        coordinator-uri uuid password
+                                        (assoc-ref build "uuid")
+                                        log-file)))
+                              ((if result
+                                   post-build-success
+                                   post-build-failure)
+                               uuid coordinator-uri password
+                               (assoc-ref build "uuid")
+                               derivation-name)))
                           (begin
                             (simple-format #t "failure: ~A\n" pre-build-status)
                             (report-setup-failure coordinator-uri uuid password
@@ -181,6 +185,8 @@
          (map
           (match-lambda
             ((output-name . output)
+             (simple-format #t "submitting output ~A\n"
+                            (derivation-output-path output))
              (submit-output coordinator-uri uuid password
                             build-id output-name
                             (derivation-output-path output))
@@ -199,6 +205,7 @@
 
           (derivation-outputs (read-derivation-from-file derivation)))))
 
+    (simple-format #t "finished submitting outputs, reporting result\n")
     (submit-build-result
      coordinator-uri uuid password build-id
      `((result  . success)
-- 
cgit v1.2.3