diff options
| author | 宋文武 <iyzsong@member.fsf.org> | 2017-09-16 15:16:04 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@member.fsf.org> | 2017-09-18 19:05:29 +0800 |
| commit | 4220514b8faa49f33a9c5b58a1bd1f2c6d385693 (patch) | |
| tree | 5dfe24b6486266b9a6a40899cd7549549ed3483e /guix/scripts/substitute.scm | |
| parent | d82937fbe0dd5e0c9321292b2d07b81ef807aa8e (diff) | |
| download | patches-4220514b8faa49f33a9c5b58a1bd1f2c6d385693.tar patches-4220514b8faa49f33a9c5b58a1bd1f2c6d385693.tar.gz | |
substitute: Close the download port after substitution finished.
* guix/scripts/substitute.scm (progress-substitution): Call 'close-port'
after 'restore-file'.
Diffstat (limited to 'guix/scripts/substitute.scm')
| -rwxr-xr-x | guix/scripts/substitute.scm | 1 |
1 files changed, 1 insertions, 0 deletions
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. |