diff options
-rw-r--r-- | henrietta-cache.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/henrietta-cache.scm b/henrietta-cache.scm index 3a67189..d38021c 100644 --- a/henrietta-cache.scm +++ b/henrietta-cache.scm @@ -135,8 +135,12 @@ EOF (base-uri (update-uri original-uri path: (if (string=? "" (last path)) path - `(,@path ""))))) - (download-files-from-list base-uri (cdr lines) cache-dir))) + `(,@path "")))) + ;; This works around a strange thing (another one, sigh) + ;; that apache-served stuff causes http-client to see an + ;; extra \r after the end. Look into this! + (files (delete "" (cdr lines)))) + (download-files-from-list base-uri files cache-dir))) (e (exn http) (error (sprintf "Could not download files-list \"~A\" -- ~A\n" uri (get-condition-property e 'exn 'message)))))) |