diff options
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)))) |