diff options
| -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 |