sig
val register_extension :
(Ocsimisc.virtual_hosts ->
(string option -> Extensions.request_info -> Extensions.answer Lwt.t) *
(string list -> Simplexmlparser.xml -> unit)) *
(unit -> unit) * (unit -> unit) * (exn -> string) -> unit
end