Reason React first component try

commentConfirmation.re

let component = ReasonReact.statefulComponent "CommentConfirmation";

type state = {showConfirm: bool};

let make ::onConfirm children => {
  let toggleConfirmMessage _event {ReasonReact.state: state} =>
    ReasonReact.Update {showConfirm: not state.showConfirm};
  let confirmAction _event _self => {
    onConfirm;
    ReasonReact.Update {showConfirm: false}
  };
  {
    ...component,
    initialState: fun () => {showConfirm: false},
    render: fun {state, update} => {
      let confirmNode =
        state.showConfirm ?
          <span>
            <a href="" onClick=(update confirmAction)> (ReasonReact.stringToElement "Yes") </a>
            <span> (ReasonReact.stringToElement "- or -") </span>
            <a href="" onClick=(update toggleConfirmMessage)>
              (ReasonReact.stringToElement "No")
            </a>
          </span> :
          <a href="" onClick=(update toggleConfirmMessage)> children </a>;
      <div className="comment-confirm"> confirmNode </div>
    }
  };
  ()
};