diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2016-10-12 16:58:04 +0200 |
|---|---|---|
| committer |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-10-17 20:14:13 +0200 |
| commit | b51eac830d2be726db06ae6d2539a81b41e90677 (patch) | |
| tree | 1d21dfe78e4795c8ceb2eddadd98876798b37abd /lib | |
| parent | 35961a4ff5a5b8c9b9786cbab0abd279263eb655 (diff) | |
[toplevel] Remove duplicate beautify flags.
Given the current style in flags.mli no reason to have a function.
A deeper question is why a global flag is needed, in particular the use
in `interp/constrextern.ml` seems strange, the condition in the lexer
should be looked at and I'm not sure about `printing/`.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 2 | ||||
| -rw-r--r-- | lib/flags.mli | 2 |
2 files changed, 0 insertions, 4 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 65873e521..35681804f 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -139,8 +139,6 @@ let pr_version = function (* Translate *) let beautify = ref false -let make_beautify f = beautify := f -let do_beautify () = !beautify let beautify_file = ref false (* Silent / Verbose *) diff --git a/lib/flags.mli b/lib/flags.mli index 9dc0c9c04..897602641 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -70,8 +70,6 @@ val version_less_or_equal : compat_version -> bool val pr_version : compat_version -> string val beautify : bool ref -val make_beautify : bool -> unit -val do_beautify : unit -> bool val beautify_file : bool ref val make_silent : bool -> unit |