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