diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-06-22 15:53:44 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-06-22 15:53:44 +0200 |
| commit | f504eec519a80eacdec01d313a9bbe9a2a185d15 (patch) | |
| tree | 98e85909d197e2b866bf16d9c0aa6bcea342e008 | |
| parent | 05165929a5e66b3e371f841b74446987b4a09f02 (diff) | |
| download | data-service-f504eec519a80eacdec01d313a9bbe9a2a185d15.tar data-service-f504eec519a80eacdec01d313a9bbe9a2a185d15.tar.gz | |
Direct the build output to the logging-port
So that this is logged.
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 11 |
1 files 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))) |