module type Private = sig .. end
sig
end
type t = private OBus_peer.peer
OBus_peer.peer
val of_peer : OBus_peer.peer -> t
OBus_peer.peer -> t
val to_peer : t -> OBus_peer.peer
t -> OBus_peer.peer