cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Close the logging port once it's been used

Browse source
This commit is contained in:
Christopher Baines 2019-07-19 20:25:13 +01:00
parent dab984b1d5
commit 71607eff66
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -790,6 +790,10 @@ SKIP LOCKED")
(parameterize ((current-build-output-port logging-port)) (parameterize ((current-build-output-port logging-port))
(load-new-guix-revision conn git-repository-id commit)))) (load-new-guix-revision conn git-repository-id commit))))
(combine-log-parts! logging-conn id) (combine-log-parts! logging-conn id)
;; This can happen with GC, so do it explicitly
(close-port logging-port)
result)))))) result))))))
(set-current-output-port previous-output-port) (set-current-output-port previous-output-port)
(set-current-error-port previous-error-port) (set-current-error-port previous-error-port)