ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-14 19:05:10 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

substitute: Close the progress port after substitute finished.

Browse source 
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
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
guix/scripts/substitute.scm
View file

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