From 3460b510b82e12bccfaf6e8a5baf9d3320a3d462 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 29 Nov 2020 16:10:38 +0000 Subject: Avoid lots of output in has-substiutes-no-cache? Ideally this would log at DEBUG level, or something like that. --- guix-build-coordinator/utils.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'guix-build-coordinator') diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 760dc1c..3767eef 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -315,7 +315,14 @@ upcoming chunk." (let ((narinfos (append-map (lambda (substitute-url) - (lookup-narinfos substitute-url (list file))) + (let ((log-port (open-output-string))) + (with-throw-handler #t + (lambda () + (parameterize ((current-error-port log-port)) + (lookup-narinfos substitute-url (list file)))) + (lambda (key . args) + (display (get-output-string log-port)) + (close-output-port log-port))))) substitute-urls))) (not (null? narinfos)))) -- cgit v1.2.3