diff options
| author | Emilio Jesus Gallego Arias | 2016-10-12 16:58:04 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-10-17 20:14:13 +0200 |
| commit | b51eac830d2be726db06ae6d2539a81b41e90677 (patch) | |
| tree | 1d21dfe78e4795c8ceb2eddadd98876798b37abd /printing/pputils.ml | |
| 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 'printing/pputils.ml')
| -rw-r--r-- | printing/pputils.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/pputils.ml b/printing/pputils.ml index 57a1d957e0..50ce56fb02 100644 --- a/printing/pputils.ml +++ b/printing/pputils.ml @@ -9,7 +9,7 @@ open Pp let pr_located pr (loc, x) = - if Flags.do_beautify () && loc <> Loc.ghost then + if !Flags.beautify && loc <> Loc.ghost then let (b, e) = Loc.unloc loc in (* Side-effect: order matters *) let before = Pp.comment (CLexer.extract_comments b) in |