~ruther/guix-local: substitute: Close the download port after substitution finished.

4220514b8faa49f33a9c5b58a1bd1f2c6d385693 — 宋文武 8 years ago d82937f

substitute: Close the download port after substitution finished.

* guix/scripts/substitute.scm (progress-substitution): Call 'close-port'
after 'restore-file'.

patch browse .tar.gz

1 files changed, 1 insertions(+), 0 deletions(-)

M guix/scripts/substitute.scm

M guix/scripts/substitute.scm => guix/scripts/substitute.scm +1 -0

@@ 959,6 959,7 @@ DESTINATION as a nar file.  Verify the substitute against ACL."
                                       progress)))
       ;; Unpack the Nar at INPUT into DESTINATION.
       (restore-file input destination)
+      (close-port input)
 
       ;; Skip a line after what 'progress-proc' printed, and another one to
       ;; visually separate substitutions.