From f29a275b7d491a06207fdefc073f6b106c373e52 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 29 Nov 2020 16:11:02 +0000 Subject: Avoid lots of output when fetching substitutes for inputs --- guix-build-coordinator/agent.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'guix-build-coordinator') 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) -- cgit v1.2.3