diff options
author | Son Ho | 2021-12-01 13:49:32 +0100 |
---|---|---|
committer | Son Ho | 2021-12-01 13:49:32 +0100 |
commit | b951d7e571a24729303169733062154c4639f73a (patch) | |
tree | 0fc32d0a5d13fdeceb171f1045459e7d1b37a168 /src/Substitute.ml | |
parent | 309295376d22b1931ff7cb908e4d9283e86ecc50 (diff) |
Move some definitions to new files
Diffstat (limited to 'src/Substitute.ml')
-rw-r--r-- | src/Substitute.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Substitute.ml b/src/Substitute.ml index 3a2358f8..ad896c41 100644 --- a/src/Substitute.ml +++ b/src/Substitute.ml @@ -3,6 +3,7 @@ *) module T = Types +module TU = TypesUtils module V = Values module E = Expressions module A = CfimAst @@ -58,7 +59,7 @@ let type_def_get_instantiated_field_type (def : T.type_def) let ty_subst = make_type_subst (List.map (fun x -> x.T.tv_index) def.T.type_params) types in - let fields = T.type_def_get_fields def opt_variant_id in + let fields = TU.type_def_get_fields def opt_variant_id in List.map (fun f -> erase_regions_substitute_types ty_subst f.T.field_ty) fields |