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

substitute: Close the download port after substitution finished.

Browse source 
* guix/scripts/substitute.scm (progress-substitution): Call 'close-port'
after 'restore-file'.
This commit is contained in:
宋文武 2017-09-16 15:16:04 +08:00
parent d82937fbe0
commit 4220514b8f
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

@ -959,6 +959,7 @@ (define* (process-substitution store-item destination
progress))) progress)))
;; 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)
;; Skip a line after what 'progress-proc' printed, and another one to ;; Skip a line after what 'progress-proc' printed, and another one to
;; visually separate substitutions. ;; visually separate substitutions.