diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-07 19:36:17 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-22 19:53:40 +0000 |
| commit | e8b4a270c8c61df3f349333fc73be7154445e5f2 (patch) | |
| tree | a51f2f54d6d3cd8ed4bfbef25b14b771c2278540 | |
| parent | 515f561370ec0674f0484d074b53887c82e81d97 (diff) | |
| download | guix-e8b4a270c8c61df3f349333fc73be7154445e5f2.tar guix-e8b4a270c8c61df3f349333fc73be7154445e5f2.tar.gz | |
substitute: Remove buffer handling from fetch.
http-fetch does this, so just set the right option.
* guix/scripts/substitute.scm (fetch): Remove buffering code, and pass
#:buffered? to http-fetch.
| -rwxr-xr-x | guix/scripts/substitute.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index f9bcead045..88610a0781 100755 --- a/guix/scripts/substitute.scm +++ b/guix/scripts/substitute.scm @@ -204,10 +204,9 @@ connection (typically PORT) is kept open once data has been fetched from URI." (when (or (not port) (port-closed? port)) (set! port (guix:open-connection-for-uri uri #:verify-certificate? #f))) - (unless (or buffered? (not (file-port? port))) - (setvbuf port 'none)) (http-fetch uri #:text? #f #:port port #:keep-alive? keep-alive? + #:buffered? buffered? #:verify-certificate? #f)))))) (else (leave (G_ "unsupported substitute URI scheme: ~a~%") |