open Wonka_types;
open Wonka_source_fromListener;

let fromDomEvent = (element, event) => curry(sink => {
  let addEventListener: (
    Dom.element,
    string,
    (Dom.event) => unit
  ) => unit = [%raw {|
    function (element, event, handler) {
      element.addEventListener(event, handler);
    }
  |}];

  let removeEventListener: (
    Dom.element,
    string,
    (Dom.event) => unit
  ) => unit = [%raw {|
    function (element, event, handler) {
      element.removeEventListener(event, handler);
    }
  |}];

  fromListener(
    handler => addEventListener(element, event, handler),
    handler => removeEventListener(element, event, handler),
    sink
  )
});