Current section

Files

Jump to
ra src ra_machine_simple.erl
Raw

src/ra_machine_simple.erl

%% @hidden
-module(ra_machine_simple).
-behaviour(ra_machine).
-export([
init/1,
apply/3
]).
init(#{simple_fun := Fun,
initial_state := Initial}) ->
{simple, Fun, Initial}.
apply(_, Cmd, {simple, Fun, State}) ->
Next = Fun(Cmd, State),
%% return the next state as the reply as well
{{simple, Fun, Next}, Next}.