diff options
-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 |