aboutsummaryrefslogtreecommitdiff
path: root/lib/cErrors.mli
diff options
context:
space:
mode:
Diffstat (limited to 'lib/cErrors.mli')
-rw-r--r--lib/cErrors.mli7
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/cErrors.mli b/lib/cErrors.mli
index 8580622095..100dcd0b22 100644
--- a/lib/cErrors.mli
+++ b/lib/cErrors.mli
@@ -86,3 +86,10 @@ val iprint_no_report : Exninfo.iexn -> Pp.t
Typical example: [Sys.Break], [Assert_failure], [Anomaly] ...
*)
val noncritical : exn -> bool
+
+(** Register a printer for errors carrying additional information on
+ exceptions. This method is fragile and should be considered
+ deprecated *)
+val register_additional_error_info
+ : (Exninfo.info -> (Pp.t option Loc.located) option)
+ -> unit