`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`