diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-09-20 08:30:24 +0200 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-09-20 08:30:24 +0200 |
commit | fb482f6b02156c1fcf029263083b0371e030a2cd (patch) | |
tree | 99f3ee49f015b2859f627cf2e57db0eb5ef3cb27 /pretyping | |
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 'pretyping')
-rw-r--r-- | pretyping/classops.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index 1cc072a2a..260cd0444 100644 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -9,7 +9,6 @@ open CErrors open Util open Pp -open Flags open Names open Libnames open Globnames @@ -387,7 +386,7 @@ let add_coercion_in_graph (ic,source,target) = old_inheritance_graph end; let is_ambig = match !ambig_paths with [] -> false | _ -> true in - if is_ambig && not !quiet then + if is_ambig && not !Flags.quiet then Feedback.msg_info (message_ambig !ambig_paths) type coercion = { |