# 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