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