diff options
| author | Maxime Dénès | 2016-06-28 13:55:20 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2016-06-28 13:57:33 +0200 |
| commit | 0e07e69dae3f3f4a99f824533f54a3991aacac6a (patch) | |
| tree | f2022d27c1742b3f3e99d76204a51860b6bc6ad5 /plugins/funind/g_indfun.ml4 | |
| parent | eb72574e1b526827706ee06206eb4a9626af3236 (diff) | |
Revert "A new infrastructure for warnings."
This reverts commit 925d258d7d03674c601a1f3832122b3b4b1bc9b0.
I forgot that Jenkins gave me a spurious success when trying to build this PR.
There are a few rough edges to fix, so reverting meanwhile. The Jenkins issue
has been fixed by Matej. Sorry for the noise.
Diffstat (limited to 'plugins/funind/g_indfun.ml4')
| -rw-r--r-- | plugins/funind/g_indfun.ml4 | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/plugins/funind/g_indfun.ml4 b/plugins/funind/g_indfun.ml4 index 93a89330e3..893baad8c9 100644 --- a/plugins/funind/g_indfun.ml4 +++ b/plugins/funind/g_indfun.ml4 @@ -198,13 +198,15 @@ let warning_error names e = let (e, _) = Cerrors.process_vernac_interp_error (e, Exninfo.null) in match e with | Building_graph e -> - let names = pr_enum Libnames.pr_reference names in - let error = if do_observe () then (spc () ++ Errors.print e) else mt () in - warn_cannot_define_graph (names,error) + Feedback.msg_warning + (str "Cannot define graph(s) for " ++ + h 1 (pr_enum Libnames.pr_reference names) ++ + if do_observe () then (spc () ++ Errors.print e) else mt ()) | Defining_principle e -> - let names = pr_enum Libnames.pr_reference names in - let error = if do_observe () then Errors.print e else mt () in - warn_cannot_define_principle (names,error) + Feedback.msg_warning + (str "Cannot define principle(s) for "++ + h 1 (pr_enum Libnames.pr_reference names) ++ + if do_observe () then Errors.print e else mt ()) | _ -> raise e |