diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-11-06 21:09:00 +0100 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-12-23 02:35:58 +0100 |
commit | b455e96cce263ea48ff0aa8b8ebf530d0f1eea9c (patch) | |
tree | cb2123b0eebe67878b219fab6efbd7a5314e9610 /tools/coq_makefile.ml | |
parent | 19a584d3fa9594abdf3dcc0148f368547ce77ccc (diff) |
Registering a printing handler in coq_makefile.
This allows to fix the non-printing of error messages produced when
parsing arguments.
Diffstat (limited to 'tools/coq_makefile.ml')
-rw-r--r-- | tools/coq_makefile.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tools/coq_makefile.ml b/tools/coq_makefile.ml index ee59479a5..b7a62a78c 100644 --- a/tools/coq_makefile.ml +++ b/tools/coq_makefile.ml @@ -391,6 +391,7 @@ let share_prefix s1 s2 = | _ -> false let _ = + let _fhandle = Feedback.(add_feeder (console_feedback_listener Format.err_formatter)) in let prog, args = let args = Array.to_list Sys.argv in let prog = List.hd args in |