diff options
| author | Alain Frisch <alain@frisch.fr> | 2013-09-12 14:45:03 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2013-09-12 14:45:03 +0000 |
| commit | 884ca00fdfc1fe5f6165fbb847c6744a47fb59d2 (patch) | |
| tree | bd64e49f3c3a449e41120b0e3508e120986ceab0 /driver/errors.ml | |
| parent | 8660e346df9c4b9bb5db38d5c91689f8a6ad906c (diff) | |
Continue cleanup. driver/errors.ml is no longer needed.
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/exception_registration@14120 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
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 |