substitute: Close the download port after substitution finished.
* guix/scripts/substitute.scm (progress-substitution): Call 'close-port' after 'restore-file'.master
parent
d82937fbe0
commit
4220514b8f
|
@ -959,6 +959,7 @@ DESTINATION as a nar file. Verify the substitute against ACL."
|
||||||
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.
|
||||||
|
|
Reference in New Issue