Cleanup and reorganize

1 files changed, 8 insertions, 2 deletions

diff --git a/src/ValuesUtils.ml b/src/ValuesUtils.ml
index 488de15d..4a503a65 100644
--- a/src/ValuesUtils.ml
+++ b/src/ValuesUtils.ml
@@ -1,8 +1,14 @@
-module T = Types
 open TypesUtils
+open Types
 open Values
 
 let mk_unit_value : typed_value =
   { value = Adt { variant_id = None; field_values = [] }; ty = mk_unit_ty }
 
-let mk_typed_value (ty : T.ety) (value : value) : typed_value = { value; ty }
+let mk_typed_value (ty : ety) (value : value) : typed_value = { value; ty }
+
+(** Box a value *)
+let mk_box_value (v : typed_value) : typed_value =
+  let box_ty = mk_box_ty v.ty in
+  let box_v = Adt { variant_id = None; field_values = [ v ] } in
+  mk_typed_value box_ty box_v