sig type t = private OBus_peer.peer external of_peer : OBus_peer.peer -> OBus_peer.Private.t = "%identity" external to_peer : OBus_peer.Private.t -> OBus_peer.peer = "%identity" end