diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-05-15 01:10:54 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-05-15 04:51:09 +0200 |
| commit | b643916aed4093eb7f21116aaef726cab561bc27 (patch) | |
| tree | be6c8aa8fe99ccec0cf9908d36c89abda47cac1f /intf | |
| parent | 8e6d03830e9c53f641626e29886eb07c705f7608 (diff) | |
[interp] [ast] Make raw_cases_pattern_expr private.
The type `raw_cases_pattern_expr` is used only in the interpretation
of notation patterns. Indeed, this should be a private type thus we
make it local to `Constrintern`; it makes no sense to expose it in the
public AST.
The patch is routine, except for the case used to interpret primitives
in patterns. We now return a `glob_constr` representing the raw
pattern, instead of the private raw pattern type. This could be
further refactored but have opted to be conservative here.
This patch is a refinement of b2953849b999d1c3b42c0f494b234f2a93ac7754
, see the commentaries there for more information about
`raw_cases_pattern_expr`.
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/constrexpr.mli | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/intf/constrexpr.mli b/intf/constrexpr.mli index a4a6eb909..77f052ddb 100644 --- a/intf/constrexpr.mli +++ b/intf/constrexpr.mli @@ -36,14 +36,6 @@ type prim_token = | Numeral of Bigint.bigint (** representation of integer literals that appear in Coq scripts. *) | String of string -type raw_cases_pattern_expr = - | RCPatAlias of Loc.t * raw_cases_pattern_expr * Id.t - | RCPatCstr of Loc.t * Globnames.global_reference - * raw_cases_pattern_expr list * raw_cases_pattern_expr list - (** [CPatCstr (_, c, l1, l2)] represents ((@c l1) l2) *) - | RCPatAtom of Loc.t * Id.t option - | RCPatOr of Loc.t * raw_cases_pattern_expr list - type instance_expr = Misctypes.glob_level list type cases_pattern_expr = |