general-apply.ex

def apply(action, state, args, store, ref, revision) do
 with {:ok, transaction} <- action.prepare(state, args),
      {:ok, transaction_ref} <- store.prepare(ref, revision, action, transaction),
      {:ok, new_state, result} <- action.commit(state, transaction),
      {:ok, revision} <- store.commit(ref, transaction_ref, new_state) do
   {:ok, new_state, revision, result}
 end
end