hl7

defmodule Xema.SchemaError do
  @moduledoc """
  Raised when a schema can't be build.
  """

  alias Xema.{SchemaError, ValidationError}

  defexception [:message, :reason]

  @impl true
  def exception(reason) when is_binary(reason), do: %SchemaError{message: reason, reason: nil}
  def exception(:missing_type = reason), do: %SchemaError{message: "Missing type.", reason: reason}
  def exception({:invalid_type, type} = reason), do: %SchemaError{message: "Invalid type #{inspect(type)}.", reason: reason}
  def exception({:invalid_types, types} = reason), do: %SchemaError{message: "Invalid types #{inspect(types)}.", reason: reason }
  def exception({:ref_not_found, path} = reason), do: %SchemaError{message: "Ref #{path} not found.", reason: reason }
  def exception(%SyntaxError{} = error), do: error
  def exception(%CompileError{} = error), do: error
  def exception(%ValidationError{} = error), do: %SchemaError{message: "Can't build schema:\n#{Exception.message(error)}", reason: error.reason }

end