1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-07-10 15:44:05 +02:00

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
+1
View File
@@ -962,6 +962,7 @@ DESTINATION as a nar file. Verify the substitute against ACL."
;; 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.