diff options
| author | Philip McGrath <philip@philipmcgrath.com> | 2022-05-18 14:10:54 -0400 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-05-22 01:07:52 +0200 |
| commit | ae533e3084b726188e78d1519f058e05c8388960 (patch) | |
| tree | f1f4c0997cfb552595f3ef3921f2c7ff548efeae /guix/http-client.scm | |
| parent | 00a5a07bb2af8b46169944ba772ad46d4e6e9172 (diff) | |
| download | guix-ae533e3084b726188e78d1519f058e05c8388960.tar guix-ae533e3084b726188e78d1519f058e05c8388960.tar.gz | |
http-client: 'http-fetch/cached' converts strings to URIs.
* guix/http-client.scm (http-fetch/cached): Use 'string->uri' if URI is
a string, as with 'http-fetch'.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix/http-client.scm')
| -rw-r--r-- | guix/http-client.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/http-client.scm b/guix/http-client.scm index 699f5dfd57..9138a627ac 100644 --- a/guix/http-client.scm +++ b/guix/http-client.scm @@ -314,7 +314,10 @@ added automatically as appropriate. TIMEOUT specifies the timeout in seconds for connection establishment. Write information about redirects to LOG-PORT." - (let ((file (cache-file-for-uri uri))) + (let* ((uri (if (string? uri) + (string->uri uri) + uri)) + (file (cache-file-for-uri uri))) (define (update-cache cache-port) (define cache-time (and cache-port |