debounce & throttle

file.re

let debounce = (func, delay) => {
  let timeoutId = ref(None);

  data => {
    switch (timeoutId^) {
    | Some(existingTimeout) => Js.Global.clearTimeout(existingTimeout)
    | None => ()
    };

    timeoutId := Some(Js.Global.setTimeout(() => {func(data)}, delay));
  };
};

let throttle = (func, delay) => {
  let canRun = ref(true);

  data =>
    if (canRun^) {
      func(data);
      canRun := false;

      let _ = Js.Global.setTimeout(() => {canRun := true}, delay);
      ();
    };
};