sig
  type t
  val addresses : OBus_server.t -> OBus_address.t list
  val shutdown : OBus_server.t -> unit Lwt.t
  val make :
    ?switch:Lwt_switch.t ->
    ?capabilities:OBus_auth.capability list ->
    ?mechanisms:OBus_auth.Server.mechanism list ->
    ?addresses:OBus_address.t list ->
    ?allow_anonymous:bool ->
    (OBus_server.t -> OBus_connection.t -> unit) -> OBus_server.t Lwt.t
  val make_lowlevel :
    ?switch:Lwt_switch.t ->
    ?capabilities:OBus_auth.capability list ->
    ?mechanisms:OBus_auth.Server.mechanism list ->
    ?addresses:OBus_address.t list ->
    ?allow_anonymous:bool ->
    (OBus_server.t -> OBus_transport.t -> unit) -> OBus_server.t Lwt.t
end