diff options
| author | Peter Bex <peter@more-magic.net> | 2011-06-02 16:34:41 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2011-06-02 16:34:41 +0200 |
| commit | 155be77b0d690d3118f7952b7b8e107e9fd2cd85 (patch) | |
| tree | 1f373d648644226de41102abb36b9dc73715c928 | |
| parent | 02a209c7df11c7c53166499ed3caf630c3d8e7f9 (diff) | |
| download | henrietta-cache-155be77b0d690d3118f7952b7b8e107e9fd2cd85.tar.gz | |
Update henrietta-cache so it doesn't get tripped up by Apache's extra newlines
| -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)))))) |