diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-11-29 16:11:02 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-11-29 16:11:02 +0000 |
| commit | f29a275b7d491a06207fdefc073f6b106c373e52 (patch) | |
| tree | cbea9ab0d1a6ba74b6a4deaad8770a2f4c7dbd4b /guix-build-coordinator/agent.scm | |
| parent | 3460b510b82e12bccfaf6e8a5baf9d3320a3d462 (diff) | |
| download | build-coordinator-f29a275b7d491a06207fdefc073f6b106c373e52.tar build-coordinator-f29a275b7d491a06207fdefc073f6b106c373e52.tar.gz | |
Avoid lots of output when fetching substitutes for inputs
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) |