Module Translclass

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