sig
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 Hal_interfaces.Org_freedesktop_Hal_Device_Storage.members ->
'a OBus_object.interface
end