diff options
| author | Hugo Herbelin | 2019-12-21 20:03:49 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2019-12-21 20:03:49 +0100 |
| commit | 9c75b6a6582620e2fb9a39c1ea1aa46a321af6a7 (patch) | |
| tree | c144c0aa94dd4392e165c8780b7e1883fea95fcb /parsing/extend.ml | |
| parent | a325c1b8a2e901a369793805a44487e3468c4348 (diff) | |
| parent | 515bdf52963c42f007178b608d8dc0707b340360 (diff) | |
Merge PR #11311: Fix handling of recursive notations with custom entries
Reviewed-by: herbelin
Diffstat (limited to 'parsing/extend.ml')
| -rw-r--r-- | parsing/extend.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/extend.ml b/parsing/extend.ml index ed6ebe5aed..dcdaa25c33 100644 --- a/parsing/extend.ml +++ b/parsing/extend.ml @@ -54,7 +54,7 @@ type constr_prod_entry_key = | ETProdBigint (* Parsed as an (unbounded) integer *) | ETProdConstr of Constrexpr.notation_entry * (production_level * production_position) (* Parsed as constr or pattern, or a subentry of those *) | ETProdPattern of int (* Parsed as pattern as a binder (as subpart of a constr) *) - | ETProdConstrList of (production_level * production_position) * string Tok.p list (* Parsed as non-empty list of constr *) + | ETProdConstrList of Constrexpr.notation_entry * (production_level * production_position) * string Tok.p list (* Parsed as non-empty list of constr, or subentries of those *) | ETProdBinderList of binder_entry_kind (* Parsed as non-empty list of local binders *) (** {5 AST for user-provided entries} *) |