diff options
author | Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2018-02-20 14:10:58 +0100 |
---|---|---|
committer | Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2018-03-02 23:45:51 +0100 |
commit | ff7be36add22cf3c6efd24a27ebdde818fc1dc06 (patch) | |
tree | 227179d9fc8e17fb7aa7324fabe1c8b78a84722e /interp | |
parent | 406f98b0efed0b5ed0c680c8a747b307d50c8ff4 (diff) |
Turn warning for deprecated notations on.
Fix new deprecation warnings in the standard library.
Diffstat (limited to 'interp')
-rw-r--r-- | interp/syntax_def.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/interp/syntax_def.ml b/interp/syntax_def.ml index 98e507309..abca1307f 100644 --- a/interp/syntax_def.ml +++ b/interp/syntax_def.ml @@ -88,12 +88,11 @@ let pr_compat_warning (kn, def, v) = | [], NRef r -> spc () ++ str "is" ++ spc () ++ pr_global_env Id.Set.empty r | _ -> strbrk " is a compatibility notation" in - let since = strbrk " since Coq > " ++ str (Flags.pr_version v) ++ str "." in - pr_syndef kn ++ pp_def ++ since + pr_syndef kn ++ pp_def let warn_compatibility_notation = CWarnings.(create ~name:"compatibility-notation" - ~category:"deprecated" ~default:Disabled pr_compat_warning) + ~category:"deprecated" ~default:Enabled pr_compat_warning) let verbose_compat kn def = function | Some v when Flags.version_strictly_greater v -> |