Module OBus_interfaces.Org_freedesktop_DBus_Peer

module Org_freedesktop_DBus_Peer: sig .. end

val interface : OBus_name.interface

val m_GetMachineId : (unit, string) OBus_member.Method.t

val m_Ping : (unit, unit) OBus_member.Method.t

type '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