Module File

module File : sig..end

filename handles old firefox without name property

class type blob = object..end

class type file = object..end

type file_any

module CoerceTo : sig..end

class type fileList = object..end

class type fileError = object..end

class type ['a]progressEvent = object..end

class type progressEventTarget = object..end

type readyState =  | EMPTY | LOADING | DONE

class type fileReader = object..end

module ReaderEvent : sig..end

val filename : file Js.t -> Js.js_string Js.t

val fileReader : fileReader Js.t Js.constr

val readAsBinaryString : #blob Js.t -> Js.js_string Js.t Lwt.t

val readAsText : #blob Js.t -> Js.js_string Js.t Lwt.t

val readAsText_withEncoding : 
  #blob Js.t -> Js.js_string Js.t -> Js.js_string Js.t Lwt.t

val readAsDataURL : #blob Js.t -> Js.js_string Js.t Lwt.t

val addEventListener : 
  (#progressEventTarget as 'a) Js.t ->
  'b Dom.Event.typ ->
  ('a Js.t, 'b) Dom.event_listener -> bool Js.t -> Dom.event_listener_id