Reasonによる単純todoアプリ

Root.re

[@react.component]
let make = () => {
  let (todos, setTodos) = React.useState(() => []);
  let (inputCurrent, setInputCurrent) = React.useState(() => "");
  <div>
    <ol>
      {
        List.map(todo => <li> {React.string(todo)} </li>, todos)
        |> Array.of_list
        |> React.array
      }
    </ol>
    <form
      onSubmit={
        event => {
          ReactEvent.Form.preventDefault(event);
          setTodos(_ => [inputCurrent, ...todos]);
          setInputCurrent(_ => "");
        }
      }>
      <input
        onChange={
          event => setInputCurrent(event->ReactEvent.Form.target##value)
        }
        value=inputCurrent
      />
      <button />
    </form>
  </div>;
};