From f504eec519a80eacdec01d313a9bbe9a2a185d15 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 22 Jun 2019 15:53:44 +0200 Subject: [PATCH] Direct the build output to the logging-port So that this is logged. --- guix-data-service/jobs/load-new-guix-revision.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 6995dac..8650202 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -661,11 +661,12 @@ ORDER BY load_new_guix_revision_jobs.id DESC") (lambda (logging-conn) (let ((logging-port (log-port id logging-conn))) (set-current-output-port logging-port) - (set-current-error-port logging-port)) - (let ((result - (load-new-guix-revision conn git-repository-id commit))) - (combine-log-parts! logging-conn id) - result))))) + (set-current-error-port logging-port) + (let ((result + (parameterize ((current-build-output-port logging-port)) + (load-new-guix-revision conn git-repository-id commit)))) + (combine-log-parts! logging-conn id) + result)))))) (set-current-output-port previous-output-port) (set-current-error-port previous-error-port) result)))