Source file `err.ml`

1
2
3
4
5
6
7
8
9
10
11
exception Custom_parsing_error of string * Loc.t
exception Custom_lexing_error of string * Loc.t

type error_loc = Loc.t

type error = string * error_loc

let pp_error fmt (msg, loc : error) =
  Format.fprintf fmt "%s: %s" (Loc.to_string loc) msg

exception Parse_error of error