diff options
| author | Maxime Dénès | 2018-02-12 10:57:39 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-02-12 10:57:39 +0100 |
| commit | 52d666a7a83e4023d9f5cd7324ed81c7f7926156 (patch) | |
| tree | 8b5254efb09a55260cd3de9bea9ae07bf4a10a02 /lib | |
| parent | 67b6583a2cc430c9584e259a00ff6b28347d5b55 (diff) | |
| parent | 33789b2d1706194d478a25098bd1991d2c845223 (diff) | |
Merge PR #6262: [error] Replace msg_error by a proper exception.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/coqProject_file.ml4 | 2 | ||||
| -rw-r--r-- | lib/feedback.mli | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/lib/coqProject_file.ml4 b/lib/coqProject_file.ml4 index 1e52af0be7..e6f1d7e063 100644 --- a/lib/coqProject_file.ml4 +++ b/lib/coqProject_file.ml4 @@ -114,7 +114,7 @@ let process_cmd_line orig_dir proj args = let parsing_project_file = ref (proj.project_file <> None) in let orig_dir = (* avoids turning foo.v in ./foo.v *) if orig_dir = "." then "" else orig_dir in - let error s = Feedback.msg_error (Pp.str (s^".")); exit 1 in + let error s = Format.eprintf "@[%a]@@\n%!" Pp.pp_with Pp.(str (s^".")); exit 1 in let mk_path d = let p = CUnix.correct_path d orig_dir in { path = CUnix.remove_path_dot (post_canonize p); diff --git a/lib/feedback.mli b/lib/feedback.mli index 62b909516f..37f38c8ffd 100644 --- a/lib/feedback.mli +++ b/lib/feedback.mli @@ -94,8 +94,9 @@ val msg_warning : ?loc:Loc.t -> Pp.t -> unit consequences. *) val msg_error : ?loc:Loc.t -> Pp.t -> unit -(** Message indicating that something went really wrong, though still - recoverable; otherwise an exception would have been raised. *) +[@@ocaml.deprecated "msg_error is an internal function and should not be \ + used unless you know what you are doing. Use \ + [CErrors.user_err] instead."] val msg_debug : ?loc:Loc.t -> Pp.t -> unit (** For debugging purposes *) |