Module Translclass

type error =
| Tags of string * string
exception Error of Location.t * error
val report_error : Format.formatter -> error -> unit