(** Functions "imported" from Http_getter_misc *)
let normalize_dir = Http_getter_misc.normalize_dir
-let strip_suffix = Http_getter_misc.strip_suffix
+let strip_suffix ~suffix s =
+ try
+ Http_getter_misc.strip_suffix ~suffix s
+ with Invalid_argument _ -> s
let absolute_path file =
if file.[0] = '/' then file else Unix.getcwd () ^ "/" ^ file
| hd :: tl -> aux tl
in
aux l
+
+let shutup () =
+ HLog.set_log_callback (fun _ _ -> ());
+(*
+ let out = open_out "/dev/null" in
+ Unix.dup2 (Unix.descr_of_out_channel out) (Unix.descr_of_out_channel stderr)
+*)
+