Skip to content
Snippets Groups Projects
Unverified Commit fbd61b5d authored by Christopher Baines's avatar Christopher Baines
Browse files

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.
parent f1f6e491
No related branches found
No related tags found
No related merge requests found
......@@ -204,10 +204,9 @@ (define* (fetch uri #:key (buffered? #t) (timeout? #t)
(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~%")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment