OBus_interfaces.Org_freedesktop_DBus_Peerval interface : OBus_name.interfaceval m_GetMachineId : (unit, string) OBus_member.Method.tval m_Ping : (unit, unit) OBus_member.Method.ttype 'a members = {m_GetMachineId : 'a OBus_object.t -> unit -> string Lwt.t;m_Ping : 'a OBus_object.t -> unit -> unit Lwt.t;}val make : 'a members -> 'a OBus_object.interface