sig
  val interface : OBus_name.interface
  val m_AcquireGlobalInterfaceLock :
    (string * bool, unit) OBus_member.Method.t
  val m_CommitToGdl : (string * string, unit) OBus_member.Method.t
  val m_DeviceExists : (string, bool) OBus_member.Method.t
  val m_FindDeviceByCapability : (string, string list) OBus_member.Method.t
  val m_FindDeviceStringMatch :
    (string * string, string list) OBus_member.Method.t
  val m_GetAllDevices : (unit, string list) OBus_member.Method.t
  val m_GetAllDevicesWithProperties :
    (unit, (string * (string * OBus_value.V.single) list) list)
    OBus_member.Method.t
  val m_NewDevice : (unit, string) OBus_member.Method.t
  val m_ReleaseGlobalInterfaceLock : (string, unit) OBus_member.Method.t
  val m_Remove : (string, unit) OBus_member.Method.t
  val m_SingletonAddonIsReady : (string, unit) OBus_member.Method.t
  val s_DeviceAdded : string OBus_member.Signal.t
  val s_DeviceRemoved : string OBus_member.Signal.t
  val s_GlobalInterfaceLockAcquired :
    (string * string * int32) OBus_member.Signal.t
  val s_GlobalInterfaceLockReleased :
    (string * string * int32) OBus_member.Signal.t
  val s_NewCapability : (string * string) OBus_member.Signal.t
  type 'a members = {
    m_AcquireGlobalInterfaceLock :
      'OBus_object.t -> string * bool -> unit Lwt.t;
    m_CommitToGdl : 'OBus_object.t -> string * string -> unit Lwt.t;
    m_DeviceExists : 'OBus_object.t -> string -> bool Lwt.t;
    m_FindDeviceByCapability :
      'OBus_object.t -> string -> string list Lwt.t;
    m_FindDeviceStringMatch :
      'OBus_object.t -> string * string -> string list Lwt.t;
    m_GetAllDevices : 'OBus_object.t -> unit -> string list Lwt.t;
    m_GetAllDevicesWithProperties :
      'OBus_object.t ->
      unit -> (string * (string * OBus_value.V.single) list) list Lwt.t;
    m_NewDevice : 'OBus_object.t -> unit -> string Lwt.t;
    m_ReleaseGlobalInterfaceLock : 'OBus_object.t -> string -> unit Lwt.t;
    m_Remove : 'OBus_object.t -> string -> unit Lwt.t;
    m_SingletonAddonIsReady : 'OBus_object.t -> string -> unit Lwt.t;
  }
  val make :
    'Hal_interfaces.Org_freedesktop_Hal_Manager.members ->
    'OBus_object.interface
end