sig
  type error =
      Finding
    | Expanding
    | ParsingResult of Camlp4.Struct.Quotation.Make.Loc.t * string
    | Locating
  type t = string * string * Camlp4.Struct.Quotation.Make.Error.error * exn
  exception E of Camlp4.Struct.Quotation.Make.Error.t
  val print :
    Format.formatter ->
    string * string * Camlp4.Struct.Quotation.Make.Error.error * exn -> unit
  val to_string :
    string * string * Camlp4.Struct.Quotation.Make.Error.error * exn ->
    string
end