diff options
Diffstat (limited to 'guix-build-coordinator/agent.scm')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 852bcb3..1e4e8d9 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -204,7 +204,14 @@ #:substitute-urls non-derivation-substitute-urls)) - (build-things store missing-paths)))) + (let ((log-port (open-output-string))) + (with-throw-handler #t + (lambda () + (parameterize ((current-build-output-port log-port)) + (build-things store missing-paths))) + (lambda (key . args) + (display (get-output-string log-port)) + (close-output-port log-port))))))) #:times 6 #:delay 60) |