type t = Syntax of string

exception Error of t

let raise_syntax_error msg = raise (Error (Syntax msg))

let pp ppf = function
  | Syntax why -> Format.fprintf ppf "syntax error: %s" why