diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-07-19 20:25:13 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-07-19 20:25:13 +0100 |
| commit | 71607eff669345eca2a6edfd2087e79d01df6edc (patch) | |
| tree | 78794b238f32d8cc7d755d01e42d24e3ac83faab /guix-data-service | |
| parent | dab984b1d5906881e1f2b177f13d83f19e5eb7f2 (diff) | |
| download | data-service-71607eff669345eca2a6edfd2087e79d01df6edc.tar data-service-71607eff669345eca2a6edfd2087e79d01df6edc.tar.gz | |
Close the logging port once it's been used
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 4779d9a..c0360bb 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -790,6 +790,10 @@ SKIP LOCKED") (parameterize ((current-build-output-port logging-port)) (load-new-guix-revision conn git-repository-id commit)))) (combine-log-parts! logging-conn id) + + ;; This can happen with GC, so do it explicitly + (close-port logging-port) + result)))))) (set-current-output-port previous-output-port) (set-current-error-port previous-error-port) |