diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-25 16:42:48 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-25 17:45:21 +0100 |
| commit | a6a93d2d0a49332b08c53480f3f6e5d0bbb846c0 (patch) | |
| tree | 17721bb19d097384e7fcfbbbe62d5d61948a71e9 /guix-build-coordinator/agent.scm | |
| parent | 121b5628fb9d380c25a1b5470704adf26e58bbe4 (diff) | |
| download | build-coordinator-a6a93d2d0a49332b08c53480f3f6e5d0bbb846c0.tar build-coordinator-a6a93d2d0a49332b08c53480f3f6e5d0bbb846c0.tar.gz | |
Support sending and storing log files for builds
Diffstat (limited to 'guix-build-coordinator/agent.scm')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index ac89db6..780f7d5 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -47,6 +47,12 @@ (let ((pre-build-status (pre-build-process 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) |