justgage

type pomWithError('data, 'err) = Js.Promise.t(Result.t('data, 'err));
type pom('data) = pomWithError('data, unit);

module JsPromise = {
  let make = () => {
    let resolver = ref(ignore);
    let p =
      Js.Promise.make((~resolve, ~reject as _) =>
        resolver := (a => resolve(. a))
      );