diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-07 20:18:57 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-22 20:43:10 +0000 |
| commit | 05f38ca8dccc49d9ec70d1f63461976b97d74d52 (patch) | |
| tree | 2e47b4f85a467cc0d7cdd204b2f4853929b7fbbf | |
| parent | 7b812f7c84c43455cdd68a0e51b6ded018afcc8e (diff) | |
| download | guix-05f38ca8dccc49d9ec70d1f63461976b97d74d52.tar guix-05f38ca8dccc49d9ec70d1f63461976b97d74d52.tar.gz | |
http-client: Accept #:open-connection in http-fetch.
So that an alternative procedure can be passed in, perhaps to perform
connection caching.
* guix/http-client.scm (http-fetch): Add an #:open-connection keyword
argument.
| -rw-r--r-- | guix/http-client.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/guix/http-client.scm b/guix/http-client.scm index 3aba3b28c1..2d7458a56e 100644 --- a/guix/http-client.scm +++ b/guix/http-client.scm @@ -75,6 +75,7 @@ (define* (http-fetch uri #:key port (text? #f) (buffered? #t) + (open-connection guix:open-connection-for-uri) (keep-alive? #f) (verify-certificate? #t) (headers '((user-agent . "GNU Guile"))) @@ -97,10 +98,10 @@ Raise an '&http-get-error' condition if downloading fails." (let loop ((uri (if (string? uri) (string->uri uri) uri))) - (let ((port (or port (guix:open-connection-for-uri uri - #:verify-certificate? - verify-certificate? - #:timeout timeout))) + (let ((port (or port (open-connection uri + #:verify-certificate? + verify-certificate? + #:timeout timeout))) (headers (match (uri-userinfo uri) ((? string? str) (cons (cons 'Authorization |