sig val register_basic_authentication_method : (Xml.xml -> string -> string -> bool Lwt.t) -> unit val get_basic_authentication_method : Xml.xml -> string -> string -> bool Lwt.t end