substitute: Close the progress port after substitute finished.

Fixes <https://bugs.gnu.org/28756>.

* guix/scripts/substitute.scm (progress-substitution):
Call '(close-port progress)'.
This commit is contained in:
宋文武 2017-10-12 22:27:04 +08:00
parent c6643f2d52
commit abaee53c80
No known key found for this signature in database
GPG key ID: 26525665AE727D37

View file

@ -962,6 +962,7 @@ (define* (process-substitution store-item destination
;; Unpack the Nar at INPUT into DESTINATION.
(restore-file input destination)
(close-port input)
(close-port progress)
;; Skip a line after what 'progress-reporter/file' printed, and another
;; one to visually separate substitutions.