My First ReasonML Component

echo.re

module Echo = {
  include ReactRe.Component.Stateful;
  let name = "Echo";
  type props = unit;
  type state = {message: option string};
  let getInitialState _ => {message: None};
  let handleChange _ event => {
    let value = (ReactDOMRe.domElementToObj (ReactEventRe.Form.target event))##value;
    Some {message: Some value}
  };
  let render {state, updater} => {
    let message =
      switch state.message {
      | None => ""
      | Some str => str
      };
    <section>
      <input onChange=(updater handleChange) value=message />
      (ReactRe.stringToElement message)
    </section>
  };
};

include ReactRe.CreateComponent Echo;

let createElement = wrapProps ();