toplevel/errors.mli


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17


(* $Id$ *)

(*i*)
open Pp
(*i*)

(* Error report. *)

val print_loc : Coqast.loc -> std_ppcmds

val explain_exn : exn -> std_ppcmds

val explain_exn_function : (exn -> std_ppcmds) ref
val explain_exn_default : exn -> std_ppcmds

val raise_if_debug : exn -> unit