diff options
| author | Pierre-Marie Pédrot | 2015-04-15 11:16:05 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-05-14 12:28:17 +0200 |
| commit | 81eb133d64ac81cbf6962d624b20c1aa55c2baae (patch) | |
| tree | d3e21aadfe30b89a6993d9ef9c9737630f88205f /lib/flags.ml | |
| parent | 4ad6855504db2ce15a474bd646e19151aa8142e2 (diff) | |
Adding an option -w to control Coq warning output.
For now, warnings are still ignored by default, but this may change. This
commit at least allows to print them whenever desired. The -w syntax is
also opened to future additions to further control the display of
warnings.
Diffstat (limited to 'lib/flags.ml')
| -rw-r--r-- | lib/flags.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index f87dd5c2c8..313da0c5bd 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -160,7 +160,7 @@ let make_polymorphic_flag b = let program_mode = ref false let is_program_mode () = !program_mode -let warn = ref true +let warn = ref false let make_warn flag = warn := flag; () let if_warn f x = if !warn then f x |