Hal_interfaces.Org_freedesktop_Hal_Device_Volumeval interface : OBus_name.interfaceval m_Eject : (string list, int32) OBus_member.Method.tval m_Mount : (string * string * string list, int32) OBus_member.Method.tval m_Unmount : (string list, int32) OBus_member.Method.ttype 'a members = {m_Eject : 'a OBus_object.t -> string list -> int32 Lwt.t;m_Mount : 'a OBus_object.t -> (string * string * string list) -> int32 Lwt.t;m_Unmount : 'a OBus_object.t -> string list -> int32 Lwt.t;}val make : 'a members -> 'a OBus_object.interface