diff options
Diffstat (limited to 'driver/errors.ml')
| -rw-r--r-- | driver/errors.ml | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/driver/errors.ml b/driver/errors.ml index 4f8a4eb3e..cb1a047ec 100644 --- a/driver/errors.ml +++ b/driver/errors.ml @@ -10,19 +10,4 @@ (* *) (***********************************************************************) -(* WARNING: if you change something in this file, you must look at - opterrors.ml and ocamldoc/odoc_analyse.ml - to see if you need to make the same changes there. -*) - -open Format - -(* Report an error *) - -let report_error ppf exn = - let report ppf x = - match Location.error_of_exn x with - | Some err -> Location.report_error ppf err - | None -> fprintf ppf "@]"; raise x - in - fprintf ppf "@[%a@]@." report exn +let report_error = Location.report_exception |