From 4220514b8faa49f33a9c5b58a1bd1f2c6d385693 Mon Sep 17 00:00:00 2001 From: 宋文武 Date: Sat, 16 Sep 2017 15:16:04 +0800 Subject: substitute: Close the download port after substitution finished. * guix/scripts/substitute.scm (progress-substitution): Call 'close-port' after 'restore-file'. --- guix/scripts/substitute.scm | 1 + 1 file changed, 1 insertion(+) (limited to 'guix') diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index dd49cf15f3..61eff18869 100755 --- a/guix/scripts/substitute.scm +++ b/guix/scripts/substitute.scm @@ -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. -- cgit v1.2.3