guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

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
Show stats 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))
(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)