Partial application of ReasonReact JSX component

gistfile1.txt

open BsReactNative;

open ReasonReact;

module RenderTable = {
  let component = ReasonReact.statelessComponent("RenderTable");
  let make = (~rowHeight, ~patients, children) => {
    ...component,
    render: _self =>
      <View>
        <Text value=patients />
        <Text value=(string_of_int(rowHeight)) />
        <View> ...children </View>
      </View>
  };
};

let renderTable = (~rowHeight, ~patients, children: Js.Array.t(reactElement)) =>
  <RenderTable rowHeight patients> ...children </RenderTable>;

let partialTable = renderTable(~rowHeight=20, ~patients="Sam, Sue");

let sw = aBool =>
  aBool ?
    partialTable([|<Text value="True" />|]) :
    partialTable([|<Text value="False" />|]);