(******************************* HELPERS **************************************)
-let trailing_slash_RE = Pcre.regexp "/$"
+(*let trailing_slash_RE = Pcre.regexp "/$"*)
let relative_RE_raw = "(^[^/]+(/[^/]+)*/?$)"
let relative_RE = Pcre.regexp relative_RE_raw
let file_scheme_RE_raw = "(^file://)"
with Invalid_argument _ -> uri
let remove_duplicates l =
- Http_getter_misc.list_uniq (List.stable_sort Pervasives.compare l)
+ Http_getter_misc.list_uniq (List.stable_sort Stdlib.compare l)
let has_rdonly l = List.exists ((=) `Read_only) l
let has_legacy l = List.exists ((=) `Legacy) l
let lookup uri =
let matches =
HExtlib.filter_map
- (fun (rex, _, l, _ as entry) ->
+ (fun (rex, _, _l, _ as entry) ->
try
let got = Pcre.extract ~full_match:true ~rex uri in
Some (entry, String.length got.(0))