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