summaryrefslogtreecommitdiff
path: root/src/Pure.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/Pure.ml')
-rw-r--r--src/Pure.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Pure.ml b/src/Pure.ml
index 32a1ca4c..fd3eb03f 100644
--- a/src/Pure.ml
+++ b/src/Pure.ml
@@ -134,6 +134,9 @@ type var = {
itself.
*)
+(* TODO: we might want to redefine field_proj_kind here, to prevent field accesses
+ * on enumerations.
+ * Also: tuples... *)
type projection_elem = { pkind : E.field_proj_kind; field_id : FieldId.id }
type projection = projection_elem list