diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-10 18:31:25 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-27 21:55:45 +0200 |
| commit | 2211eeda012477b26081738fccc59aa31fb0a565 (patch) | |
| tree | 2a60a63a50818a970f5639570ed27b5843c2e88e /interp/constrextern.ml | |
| parent | bde36d4b00185065628324d8ca71994f84eae244 (diff) | |
Being defensive in printing implicit arguments also with manual
implicit arguments when in beautification mode.
Diffstat (limited to 'interp/constrextern.ml')
| -rw-r--r-- | interp/constrextern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 592f59333..2c68a2616 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -478,7 +478,7 @@ let explicitize loc inctx impl (cf,f) args = (is_needed_for_correct_partial_application tail imp) || (!print_implicits_defensive && is_significant_implicit a && - not (is_inferable_implicit inctx n imp)) + (not (is_inferable_implicit inctx n imp) || !Flags.beautify_file)) in if visible then (a,Some (Loc.ghost, ExplByName (name_of_implicit imp))) :: tail |