From 155be77b0d690d3118f7952b7b8e107e9fd2cd85 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Thu, 2 Jun 2011 16:34:41 +0200 Subject: Update henrietta-cache so it doesn't get tripped up by Apache's extra newlines --- henrietta-cache.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'henrietta-cache.scm') 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)))))) -- cgit v1.2.3