diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-27 17:48:54 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-27 17:48:54 +0100 |
| commit | 0ef67e75d1c587df201dd324235a629dedcd93fd (patch) | |
| tree | dc8b29d861d0f84956b4269961e0219a80a03f94 /guix-build-coordinator/agent.scm | |
| parent | fd4217cdad0f18114a7305d19bcf9e8f2c714e51 (diff) | |
| download | build-coordinator-0ef67e75d1c587df201dd324235a629dedcd93fd.tar build-coordinator-0ef67e75d1c587df201dd324235a629dedcd93fd.tar.gz | |
Improve the output from the agent process
Diffstat (limited to 'guix-build-coordinator/agent.scm')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 33 |
1 files 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) |