Bucklescript FFI bindings with Reason for prop-types

PropTypes.bs.js

import * as PropTypes from "prop-types";

var shape = PropTypes.default.shape();

var arrayOf = PropTypes.default.arrayOf();

var Internal = /* module */[
  /* shape */shape,
  /* arrayOf */arrayOf
];

function add(prim, prim$1) {
  prim.propTypes = prim$1;
  return /* () */0;
}

var string = PropTypes.default.string;

var requiredString = string.isRequired;

var func = PropTypes.default.func;

var requiredFunc = func.isRequired;

var bool = PropTypes.default.bool;

var requiredBool = bool.isRequired;

var array = PropTypes.default.array;

var requiredArray = array.isRequired;

function requiredArrayOf(x) {
  return arrayOf(x).isRequired;
}

function requiredShape(x) {
  return shape(x).isRequired;
}

export {
  Internal ,
  add ,
  string ,
  requiredString ,
  func ,
  requiredFunc ,
  bool ,
  requiredBool ,
  array ,
  requiredArray ,
  arrayOf ,
  requiredArrayOf ,
  shape ,
  requiredShape ,
  
}
/* shape Not a pure module */

PropTypes.re

module Internal = {
  [@bs.deriving abstract]
  /* This is a little dishonest, but the resulting code generated works out like this. */
  type isRequired = {
    isRequired,
  };
  [@bs.deriving abstract]
  type proptypes = {
    [@bs.as "string"]
    string_: isRequired,
    number: isRequired,
    array: isRequired,
    func: isRequired,
    [@bs.as "bool"]
    bool_: isRequired,
  };
  [@bs.module "prop-types"] external propTypes : proptypes = "default";
  [@bs.send] external arrayOf : proptypes => (. isRequired) => isRequired = "";
  [@bs.send]
  external shape : proptypes => (. Js.Dict.t(isRequired)) => isRequired = "";
  /* Still need to add oneOf and shape at some point... */
  let shape = shape(propTypes);
  let arrayOf = arrayOf(propTypes);
};

[@bs.set]
external add : (ReasonReact.reactClass, Js.t(_)) => unit = "propTypes";

let add = add;

open Internal;

let string = propTypes |. string_;

let requiredString = string |. isRequired;

let func = propTypes |. func;

let requiredFunc = func |. isRequired;

let bool = propTypes |. bool_;

let requiredBool = bool |. isRequired;

let array = propTypes |. array;

let requiredArray = array |. isRequired;

let arrayOf = arrayOf;

let requiredArrayOf = x => arrayOf(. x) |. isRequired;

let shape = shape;

let requiredShape = x => shape(. x) |. isRequired;