sig
  val section : Lwt_log_core.section
  type auth = string -> string -> bool Lwt.t
  val register_basic_authentication_method :
    (Xml.xml -> Authbasic.auth) -> unit
  val run :
    realm:string -> auth:Authbasic.auth -> unit -> Ocsigen_server.instruction
  val get_basic_authentication_method : Xml.xml -> Authbasic.auth
end