diff options
author | Christopher Baines <mail@cbaines.net> | 2020-11-29 16:10:38 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-11-29 16:10:38 +0000 |
commit | 3460b510b82e12bccfaf6e8a5baf9d3320a3d462 (patch) | |
tree | 288712afc1839e8d2c9313ae85a74a0355494da4 /guix-build-coordinator | |
parent | 459bd70ec572dc2269004a86d7fb886f1fab6a50 (diff) | |
download | build-coordinator-3460b510b82e12bccfaf6e8a5baf9d3320a3d462.tar build-coordinator-3460b510b82e12bccfaf6e8a5baf9d3320a3d462.tar.gz |
Avoid lots of output in has-substiutes-no-cache?
Ideally this would log at DEBUG level, or something like that.
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r-- | guix-build-coordinator/utils.scm | 9 |
1 files changed, 8 insertions, 1 deletions
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)))) |