MainModel.re

[...]


type mainData = {
  gActions: list(gAction),
  entities: list(entity),
	history: list(historyChunk),
	resources: int
};

MainModelCreator.re

open MainModel;

let createInitData = () : mainData => {
  gActions: [],
  entities: [EntityFactories.crewMemberFactory(0, 0), EntityFactories.crewMemberFactory(1, 0)],
	history: [],
	resources: 1000
};

MainReducer.re

let reduce = (state: MainModel.mainData, action: Actions.anyAction) =>
  switch action {
  | Actions.TickAction => {...state, resources: state.resources + 1}
  | Actions.AddGActionAction => state
  };

ReactMain.re

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

let make = _children => {
  ...component,
  initialState: MainModelCreator.createInitData,
  reducer: (action, state) =>
    /* this is only a simple pattern matching reducer */
    ReasonReact.Update(MainReducer.reduce(state, action): MainModel.mainData),
  render: self => {
    <div>
      <button
        onClick=(_event => self.send(Actions.TickAction))
      />
      /* Error :  Unbound record field resources    at <anonymous> */
      (ReasonReact.stringToElement(string_of_int(self.state.resources)))
    </div>;
  }
};