diff options
| author |  Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-06-25 08:00:47 +0000 |
|---|---|---|
| committer | Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-07-03 15:59:33 +0000 |
| commit | 5494c46f6219bea902fcc5ed983e16d1105fec51 (patch) | |
| tree | b3203230412cad19f08cb7b549074d8fea523844 /vernac/vernacinterp.ml | |
| parent | 767898e6e59e86e3123846374448402360b783e6 (diff) | |
[vernac] Add a “deprecated” attribute
Diffstat (limited to 'vernac/vernacinterp.ml')
| -rw-r--r-- | vernac/vernacinterp.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/vernac/vernacinterp.ml b/vernac/vernacinterp.ml index 36b8a7e62..30c1ddbfd 100644 --- a/vernac/vernacinterp.ml +++ b/vernac/vernacinterp.ml @@ -19,10 +19,11 @@ type atts = { locality : bool option; polymorphic : bool; program : bool; + deprecated : (string * string) option; } -let mk_atts ?(loc=None) ?(locality=None) ?(polymorphic=false) ?(program=false) () : atts = - { loc ; locality ; polymorphic ; program } +let mk_atts ?(loc=None) ?(locality=None) ?(polymorphic=false) ?(program=false) ?(deprecated=None) () : atts = + { loc ; locality ; polymorphic ; program ; deprecated } type 'a vernac_command = 'a -> atts:atts -> st:Vernacstate.t -> Vernacstate.t |