let is_http_schema url = Pcre.pmatch ~rex:http_scheme_RE url
let is_empty_listing files =
- List.for_all (fun s -> s.[String.length s - 1] = '/') files
+ List.for_all
+ (fun s ->
+ let len = String.length s in
+ len < 4 || String.sub s (len - 4) 4 <> ".xml") files
(************************* GLOBALS PREFIXES **********************************)