1. Moritz Heidkamp
  2. henrietta-cache


Peter Bex  committed f2ca8d8

Update henrietta-cache so it doesn't get tripped up by Apache's extra newlines

  • Participants
  • Parent commits f99f1af
  • Branches default

Comments (0)

Files changed (1)

File henrietta-cache.scm

View file
  • Ignore whitespace
                   (base-uri (update-uri original-uri
                                         path: (if (string=? "" (last 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))))))