diff options
| author | Hugo Herbelin | 2016-01-21 09:21:23 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2016-01-22 21:26:44 +0100 |
| commit | f65f8d5a4d9ba437fa2d8af03e2781d841e53007 (patch) | |
| tree | 8463f297afabb3a8dcf9f0316ed8033724891f97 | |
| parent | aa1913411547eeed464b024f1cf54113be26e929 (diff) | |
Restore warnings produced by the interpretation of the command line
(e.g. with deprecated options such as -byte, etc.) since I guess this
is what we expect.
Was probably lost in 81eb133d64ac81cb.
| -rw-r--r-- | lib/flags.mli | 1 | ||||
| -rw-r--r-- | toplevel/coqtop.ml | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lib/flags.mli b/lib/flags.mli index ab06eda306..69caad5b62 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -90,6 +90,7 @@ val is_universe_polymorphism : unit -> bool val make_polymorphic_flag : bool -> unit val use_polymorphic_flag : unit -> bool +val warn : bool ref val make_warn : bool -> unit val if_warn : ('a -> unit) -> 'a -> unit diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index afd4ef40e8..cfedff0809 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -35,7 +35,7 @@ let print_header () = ppnl (str "Welcome to Coq " ++ str ver ++ str " (" ++ str rev ++ str ")"); pp_flush () -let warning s = msg_warning (strbrk s) +let warning s = with_option Flags.warn msg_warning (strbrk s) let toploop = ref None |