diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-25 18:24:37 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-25 18:24:37 +0100 |
| commit | e913cd90fe554abb2c8244faad8d962e52486185 (patch) | |
| tree | 5cd0b85984f723806d0c9315c56c842d845c34cd | |
| parent | f79e93e04279977b0e4737d81c93689d26345851 (diff) | |
| download | build-coordinator-e913cd90fe554abb2c8244faad8d962e52486185.tar build-coordinator-e913cd90fe554abb2c8244faad8d962e52486185.tar.gz | |
Add helpful output to the agent process
| -rw-r--r-- | guix-build-coordinator/agent.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 0c3cec2..c08f89e 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -42,8 +42,14 @@ (fetch-builds-for-agent coordinator-uri uuid password) already-allocated-builds)))) + (simple-format #t "received allocated builds (~A)\n" + (length builds)) (for-each (lambda (build) + (simple-format #t "processing build: ~A\n" + (assoc-ref build "uuid")) (let ((derivation-name (assoc-ref build "derivation-name"))) + (simple-format #t "setting up to build: ~A\n" + derivation-name) (let ((pre-build-status (pre-build-process derivation-name))) (if (eq? (assq-ref pre-build-status 'result) 'success) (let ((result (perform-build derivation-name))) @@ -151,12 +157,16 @@ (define (post-build-failure uuid coordinator-uri password build-id derivation) + (simple-format #t "build ~A failed, reporting to coordinator\n" + build-id) (submit-build-result coordinator-uri uuid password build-id '((result . failure)))) (define (post-build-success uuid coordinator-uri password build-id derivation) + (simple-format #t "build ~A successful, reporting to coordinator\n" + build-id) (let ((output-details (map (match-lambda |