summaryrefslogtreecommitdiff
path: root/src/Substitute.ml
diff options
context:
space:
mode:
authorSon Ho2021-12-01 13:49:32 +0100
committerSon Ho2021-12-01 13:49:32 +0100
commitb951d7e571a24729303169733062154c4639f73a (patch)
tree0fc32d0a5d13fdeceb171f1045459e7d1b37a168 /src/Substitute.ml
parent309295376d22b1931ff7cb908e4d9283e86ecc50 (diff)
Move some definitions to new files
Diffstat (limited to 'src/Substitute.ml')
-rw-r--r--src/Substitute.ml3
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