sig
  val interface : OBus_name.interface
  val m_CheckForMedia : (unit, bool) OBus_member.Method.t
  type 'a members = {
    m_CheckForMedia : 'OBus_object.t -> unit -> bool Lwt.t;
  }
  val make :
    'Hal_interfaces.Org_freedesktop_Hal_Device_Storage_Removable.members ->
    'OBus_object.interface
end