summaryrefslogtreecommitdiff
path: root/src/Substitute.ml
diff options
context:
space:
mode:
authorSon Ho2022-01-05 18:38:53 +0100
committerSon Ho2022-01-05 18:38:53 +0100
commiteb16147150d72642c6dc86ee2427b5378bf3f140 (patch)
tree82be8b97530b2c80a671ca46fdb80e443a62d43f /src/Substitute.ml
parentd22f5d1ae5155c53b9cd0daf165dccb5d5563c1f (diff)
Cleanup a bit
Diffstat (limited to 'src/Substitute.ml')
-rw-r--r--src/Substitute.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Substitute.ml b/src/Substitute.ml
index dd89025b..d3c3c430 100644
--- a/src/Substitute.ml
+++ b/src/Substitute.ml
@@ -39,6 +39,8 @@ let erase_regions (ty : T.rty) : T.ety =
Return the list of new regions and appropriate substitutions from the
original region variables to the fresh regions.
+
+ TODO: simplify? we only need the subst `T.RegionVarId.id -> T.RegionId.id`
*)
let fresh_regions_with_substs (region_vars : T.region_var list)
(ctx : C.eval_ctx) :