ReasonML Counter

ComponentCounter.re

type state = {count: int};

type action =
  | Increment
  | Decrement;

let component = ReasonReact.reducerComponent("State");

let make = _children => {
  ...component,
  initialState: () => {count: 0},
  reducer: (action, state) =>
    switch (action) {
    | Increment => ReasonReact.Update({count: state.count + 1})
    | Decrement => ReasonReact.Update({count: state.count - 1})
    },
  render: self =>
    <div>
      <h1>
        (ReasonReact.string("Count: " ++ string_of_int(self.state.count)))
      </h1>
      <button onClick=(_event => self.send(Increment))>
        (ReasonReact.string("+"))
      </button>
      <button onClick=(_event => self.send(Decrement))>
        (ReasonReact.string("-"))
      </button>
    </div>,
};