mirror of
https://github.com/ash-project/ash_state_machine.git
synced 2024-09-20 13:23:52 +12:00
29 lines
843 B
Elixir
29 lines
843 B
Elixir
defmodule AshFsm.Verifiers.VerifyDefaultInitialState do
|
|
use Spark.Dsl.Verifier
|
|
|
|
def verify(dsl_state) do
|
|
module = Spark.Dsl.Verifier.get_persisted(dsl_state, :module)
|
|
|
|
attribute =
|
|
Ash.Resource.Info.attribute(dsl_state, AshFsm.Info.fsm_state_attribute!(dsl_state))
|
|
|
|
case AshFsm.Info.fsm_default_initial_state(dsl_state) do
|
|
{:ok, initial} when not is_nil(initial) ->
|
|
initial_states = AshFsm.Info.fsm_initial_states!(dsl_state)
|
|
|
|
unless initial in initial_states do
|
|
raise Spark.Error.DslError,
|
|
module: module,
|
|
path: [:attributes, attribute.name],
|
|
message: """
|
|
Expected `#{inspect(initial)}` to be in the list of `initial_states`, got: #{inspect(initial_states)}
|
|
"""
|
|
end
|
|
|
|
:ok
|
|
|
|
_ ->
|
|
:ok
|
|
end
|
|
end
|
|
end
|