diff options
| author | Gaëtan Gilbert | 2018-10-11 18:10:06 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-11-02 13:26:16 +0100 |
| commit | c7ce8a036e07930793dc4904457188ca97064700 (patch) | |
| tree | b785a4694b7bc43faebb99a2ac23f466d65c8b77 /plugins | |
| parent | 207c6710606c1581a9b3f207769ceaeb99f5c883 (diff) | |
Simplify use of polymorphism/program globals in attributes
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ltac/rewrite.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/plugins/ltac/rewrite.ml b/plugins/ltac/rewrite.ml index 740e955049..7d917c58fe 100644 --- a/plugins/ltac/rewrite.ml +++ b/plugins/ltac/rewrite.ml @@ -48,8 +48,6 @@ type rewrite_attributes = { polymorphic : bool; program : bool; global : bool } let rewrite_attributes = let open Attributes.Notations in Attributes.(polymorphic ++ program ++ locality) >>= fun ((polymorphic, program), locality) -> - let polymorphic = Option.default (Flags.is_universe_polymorphism()) polymorphic in - let program = Option.default (Flags.is_program_mode ()) program in let global = not (Locality.make_section_locality locality) in Attributes.Notations.return { polymorphic; program; global } |