sig
  val interface : OBus_name.interface
  val m_Eject : (string list, int32) OBus_member.Method.t
  val m_Mount : (string * string * string list, int32) OBus_member.Method.t
  val m_Unmount : (string list, int32) OBus_member.Method.t
  type 'a members = {
    m_Eject : 'OBus_object.t -> string list -> int32 Lwt.t;
    m_Mount :
      'OBus_object.t -> string * string * string list -> int32 Lwt.t;
    m_Unmount : 'OBus_object.t -> string list -> int32 Lwt.t;
  }
  val make :
    'Hal_interfaces.Org_freedesktop_Hal_Device_Volume.members ->
    'OBus_object.interface
end