diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2000-08-23 17:13:17 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2000-08-23 17:13:17 +0000 |
| commit | 3d7b7c2e37f7cd35d77a5bce55bc76481b2195ff (patch) | |
| tree | ba85b138007aca7d0acc0a1fde8f3a7b99cc7e04 /driver/errors.ml | |
| parent | b2fdec8e5cacb9d9c9785b34bb641db9758e45c1 (diff) | |
option -warn-error
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3283 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'driver/errors.ml')
| -rw-r--r-- | driver/errors.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/driver/errors.ml b/driver/errors.ml index 3256a7099..a6d970802 100644 --- a/driver/errors.ml +++ b/driver/errors.ml @@ -55,6 +55,8 @@ let report_error ppf exn = Location.print ppf loc; Typeclass.report_error ppf err | Translclass.Error(loc, err) -> Location.print ppf loc; Translclass.report_error ppf err + | Warnings.Errors (n) -> + fprintf ppf "@.Error: %d error-enabled warnings occurred." n | x -> fprintf ppf "@]"; raise x in fprintf ppf "@[%a@]@." report exn |