sig
  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 : 'OBus_object.t -> unit -> string Lwt.t;
    m_Ping : 'OBus_object.t -> unit -> unit Lwt.t;
  }
  val make :
    'OBus_interfaces.Org_freedesktop_DBus_Peer.members ->
    'OBus_object.interface
end