summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2011-06-02 16:34:41 +0200
committerPeter Bex <peter@more-magic.net>2011-06-02 16:34:41 +0200
commit155be77b0d690d3118f7952b7b8e107e9fd2cd85 (patch)
tree1f373d648644226de41102abb36b9dc73715c928
parent02a209c7df11c7c53166499ed3caf630c3d8e7f9 (diff)
downloadhenrietta-cache-155be77b0d690d3118f7952b7b8e107e9fd2cd85.tar.gz
Update henrietta-cache so it doesn't get tripped up by Apache's extra newlines
-rw-r--r--henrietta-cache.scm8
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))))))