xstate-machine.res

module FetchMachine = Machine({
  type state = [#idle | #loading | #success | #failure]
  type event = [#FETCH | #RESOLVE | #REJECT | #RETRY]
  type context = {retries: int}

  let id = "fetch"
  let initial = #idle

  let states = [
    State({
      name: #idle,
      on: [(#FETCH, #loading)],
    }),
    State({
      name: #loading,
      on: [(#RESOLVE, #success), (#REJECT, #failure)],
    }),
    Final({
      name: #success,
    }),
    State({
      name: #failure,
      on: [(#RETRY, #loading)],
    }),
  ]
})