Add a type alias for location stack in the parsetree (#8803)

master
hhugo 2019-07-12 18:18:28 +08:00 committed by Thomas Refis
parent ef8d8a7055
commit e579129133
1 changed files with 5 additions and 3 deletions

View File

@ -42,6 +42,8 @@ type constant =
Suffixes are rejected by the typechecker.
*)
type location_stack = Location.t list
(** {1 Extension points} *)
type attribute = {
@ -79,7 +81,7 @@ and core_type =
{
ptyp_desc: core_type_desc;
ptyp_loc: Location.t;
ptyp_loc_stack: Location.t list;
ptyp_loc_stack: location_stack;
ptyp_attributes: attributes; (* ... [@id1] [@id2] *)
}
@ -188,7 +190,7 @@ and pattern =
{
ppat_desc: pattern_desc;
ppat_loc: Location.t;
ppat_loc_stack: Location.t list;
ppat_loc_stack: location_stack;
ppat_attributes: attributes; (* ... [@id1] [@id2] *)
}
@ -254,7 +256,7 @@ and expression =
{
pexp_desc: expression_desc;
pexp_loc: Location.t;
pexp_loc_stack: Location.t list;
pexp_loc_stack: location_stack;
pexp_attributes: attributes; (* ... [@id1] [@id2] *)
}