We build sound software.

type action =
  | Tick;
 
type state = {
  count: int,
  timerId: ref(option(Js.Global.intervalId))
};
 
let component = ReasonReact.reducerComponent("Counter");
 
let make = _children => {
  ...component,
  initialState: () => {count: 0, timerId: ref(None)},
  reducer: (action, state) =>
    switch (action) {
    | Tick => ReasonReact.Update({...state, count: state.count + 1})
    },
  didMount: self => {
    self.state.timerId :=
      Some(Js.Global.setInterval(() => self.send(Tick), 1000));
  },
  willUnmount: self => {
    switch (self.state.timerId^) {
    | Some(id) => Js.Global.clearInterval(id)
    | None => ()
    }
  },
  render: ({ state }) =>
    <div>{ReasonReact.string(string_of_int(state.count))}</div>
};