Module Camlp4.Struct.Quotation.Make.Error

module Error: sig .. end

type error =

`\|`	`Finding`
`\|`	`Expanding`
`\|`	`ParsingResult of Camlp4.Struct.Quotation.Make.Loc.t * string`
`\|`	`Locating`

type t = string * string * error * exn

exception E of t

val print : Format.formatter ->
       string * string * error * exn -> unit

val to_string : string * string * error * exn -> string