Location.Error
type t
val is_well_formed : t -> bool
val main_msg : t -> string loc
val sub_msgs : t -> string loc list
val set_main_msg : t -> string -> t
val set_main_loc : t -> t -> t
val make : sub:string loc list -> string loc -> t
val of_exn : exn -> t option