schematic

defprotocol Schematic.Unification do
  @moduledoc false
  @fallback_to_any true
  def unify(schematic, value, direction)
  def message(schematic)
  def kind(schematic)
end

defimpl Schematic.Unification, for: Schematic do
  def unify(schematic, input, direction) do
    schematic.unify.(input, direction)
  end

  def message(schematic) do
    schematic.message.()
  end

  def kind(%{kind: kind}), do: kind
end

defimpl Schematic.Unification, for: Any do
  def unify(schematic, input, _ \\ nil)

  def unify(%schematic_mod{}, %input_mod{} = input, _) do
    if schematic_mod == input_mod do
      {:ok, input}
    else
      {:error, "expected %#{schematic_mod}{}"}
    end
  end

  def unify(literal, value, _) do
    if literal == value do
      {:ok, value}
    else
      {:error, "expected #{inspect(literal)}"}
    end
  end

  def message(nil) do
    "null"
  end

  def message(literal) do
    inspect(literal)
  end

  def kind(nil), do: "null"
  def kind(_), do: "literal"
end