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 < 7 || String.sub s (len - 7) 7 <> ".xml.gz") files
(************************* GLOBALS PREFIXES **********************************)