Module Hal_interfaces.Org_freedesktop_Hal_Device_Storage

module Org_freedesktop_Hal_Device_Storage: sig .. end

val interface : OBus_name.interface

val m_CloseTray : (string list, int32) OBus_member.Method.t

val m_Eject : (string list, int32) OBus_member.Method.t

type 'a members = {

	`m_CloseTray : 'a OBus_object.t -> string list -> int32 Lwt.t;`
	`m_Eject : 'a OBus_object.t -> string list -> int32 Lwt.t;`

}

val make : 'a members ->
       'a OBus_object.interface