diff options
| author | Emilio Jesus Gallego Arias | 2017-09-20 08:30:24 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-09-20 08:30:24 +0200 |
| commit | fb482f6b02156c1fcf029263083b0371e030a2cd (patch) | |
| tree | 99f3ee49f015b2859f627cf2e57db0eb5ef3cb27 /vernac/command.ml | |
| parent | 9933871efd122163f7e2dfe8377b9b2dd384b47b (diff) | |
[flags] Flag `open Flags`
An incoming commit is removing some toplevel-specific global flags in
favor of local toplevel state; this commit flags `Flags` use so it
becomes clearer in the code whether we are relying on some "global"
settable status in code.
A good candidate for further cleanup is the pattern:
`Flags.if_verbose Feedback.msg_info`
Diffstat (limited to 'vernac/command.ml')
| -rw-r--r-- | vernac/command.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/vernac/command.ml b/vernac/command.ml index 32ab5401a0..b611edc41d 100644 --- a/vernac/command.ml +++ b/vernac/command.ml @@ -9,7 +9,6 @@ open Pp open CErrors open Util -open Flags open Term open Vars open Termops @@ -692,7 +691,7 @@ let declare_mutual_inductive_with_eliminations mie pl impls = constrimpls) impls; let warn_prim = match mie.mind_entry_record with Some (Some _) -> not prim | _ -> false in - if_verbose Feedback.msg_info (minductive_message warn_prim names); + Flags.if_verbose Feedback.msg_info (minductive_message warn_prim names); if mie.mind_entry_private == None then declare_default_schemes mind; mind |