diff options
author | Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-06-27 17:40:48 +0000 |
---|---|---|
committer | Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-07-03 16:10:19 +0000 |
commit | f0e546fdb98ff7244d5c393c739f5b7238295918 (patch) | |
tree | 6b50e480a26cb981d16a5e575fbee9100fe1dbe1 /vernac/vernacinterp.mli | |
parent | d3127693d4a2125088aa512f593d782843482f2a (diff) |
[vernac] use a record for the contents of the “deprecated” attribute
Diffstat (limited to 'vernac/vernacinterp.mli')
-rw-r--r-- | vernac/vernacinterp.mli | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/vernac/vernacinterp.mli b/vernac/vernacinterp.mli index 362c05d4c..46468b309 100644 --- a/vernac/vernacinterp.mli +++ b/vernac/vernacinterp.mli @@ -10,25 +10,27 @@ (** Interpretation of extended vernac phrases. *) -type deprecation = bool +type deprecation = { since : string option ; note : string option } + +val mk_deprecation : ?since: string option -> ?note: string option -> unit -> deprecation type atts = { loc : Loc.t option; locality : bool option; polymorphic : bool; program : bool; - deprecated : (string * string) option; (* Since, Note *) + deprecated : deprecation option; } val mk_atts : ?loc: Loc.t option -> ?locality: bool option -> - ?polymorphic: bool -> ?program: bool -> ?deprecated: (string * string) option -> unit -> atts + ?polymorphic: bool -> ?program: bool -> ?deprecated: deprecation option -> unit -> atts type 'a vernac_command = 'a -> atts:atts -> st:Vernacstate.t -> Vernacstate.t type plugin_args = Genarg.raw_generic_argument list val vinterp_init : unit -> unit -val vinterp_add : deprecation -> Vernacexpr.extend_name -> plugin_args vernac_command -> unit +val vinterp_add : bool -> Vernacexpr.extend_name -> plugin_args vernac_command -> unit val overwriting_vinterp_add : Vernacexpr.extend_name -> plugin_args vernac_command -> unit val call : Vernacexpr.extend_name -> plugin_args -> atts:atts -> st:Vernacstate.t -> Vernacstate.t |