Error: Unbound value Js_browser.Event.kind_to_js

[bikallem]

Hi,

I am getting a build error in the title when I try to bind the following code,

module XMLHttpRequestUpload : sig
  type t
  val t_of_js: Ojs.t -> t
  val t_to_js: t -> Ojs.t

  val add_event_listener: t -> Event.kind -> (Event.t -> unit) -> bool -> unit [@@js.call]
end

Am I missing something here?

[bikallem]

The Event module is from https://github.com/LexiFi/ocaml-vdom/blob/master/lib/js_browser.mli#L166

[alainfrisch]

The Event module does not currently expose the _to_js / _of_js for its kind type, even though they are generated (and used) in the implementation. I think the fix would be to add those functions to interface.