diff options
| author | Son Ho | 2021-12-17 15:14:36 +0100 |
|---|---|---|
| committer | Son Ho | 2021-12-17 15:14:36 +0100 |
| commit | 597305ceaaebd7c37f767aa695fd9455dafd26cc (patch) | |
| tree | bd34472a5085d7889eed37d2f0dd20d9f785d69c /src/Substitute.ml | |
| parent | 145817d32ac51dbb2240ccc4e550b0c75e76d928 (diff) | |
Use RegionVarId and RegionId in a more consistent manner
Diffstat (limited to 'src/Substitute.ml')
| -rw-r--r-- | src/Substitute.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Substitute.ml b/src/Substitute.ml index 78109913..9adbf4a6 100644 --- a/src/Substitute.ml +++ b/src/Substitute.ml @@ -37,8 +37,8 @@ let erase_regions (ty : T.rty) : T.ety = (** Erase the regions in a type and substitute the type variables *) let erase_regions_substitute_types (tsubst : T.TypeVarId.id -> T.ety) - (ty : T.rty) : T.ety = - let rsubst (_ : T.RegionVarId.id T.region) : T.erased_region = T.Erased in + (ty : 'r T.region T.ty) : T.ety = + let rsubst (_ : 'r T.region) : T.erased_region = T.Erased in ty_substitute rsubst tsubst ty (** Create a type substitution from a list of type variable ids and a list of |