sig
  type t =
      [ `Bad_content of string
      | `Bad_document of string
      | `Bad_namespace of string
      | `Bad_token of string * string * string
      | `Decoding_error of string * string
      | `Misnested_tag of string * string
      | `Unexpected_eoi of string
      | `Unmatched_end_tag of string
      | `Unmatched_start_tag of string ]
  val to_string : ?location:Markup.location -> Markup.Error.t -> string
end