Fix compilation after renaming of modules to snake_case

Signed-off-by: Kakadu <[email protected]>

src/typed/Eta.ml

@@ -37,14 +37,14 @@ let describe_as_json () =
 
 let expr2string e0 =
   let open Parsetree in
-  let e = MyUntype.untype_expression e0 in
+  let e = My_untype.untype_expression e0 in
   let open Ast_helper in
   Format.asprintf "let (_: %a) = %a" Printtyp.type_expr e0.exp_type Pprintast.expression e
 ;;
 
 let msg ppf e0 =
   let open Parsetree in
-  let e = MyUntype.untype_expression e0 in
+  let e = My_untype.untype_expression e0 in
   let si =
     let open Ast_helper in
     Format.asprintf "%a" Pprintast.expression e

src/typed/Ignore.ml

@@ -37,7 +37,7 @@ let describe_as_json () =
 
 let msg ppf e0 =
   let open Parsetree in
-  let e = MyUntype.untype_expression e0 in
+  let e = My_untype.expr e0 in
   let si =
     let open Ast_helper in
     Format.asprintf

src/typed/List_length.ml

@@ -37,9 +37,9 @@ let msg_long ppf (l, r) =
     ppf
     "Between '%a' and '%a'.%!"
     Pprintast.expression
-    (MyUntype.expr l)
+    (My_untype.expr l)
     Pprintast.expression
-    (MyUntype.expr r)
+    (My_untype.expr r)
 ;;
 
 let report filename ~loc l r =

src/typed/Match_Bool.ml

@@ -34,7 +34,7 @@ let describe_as_json () =
 
 let msg ppf e0 =
   let open Parsetree in
-  let e = MyUntype.untype_expression e0 in
+  let e = My_untype.expr e0 in
   let si =
     let open Ast_helper in
     Format.asprintf "%a" Pprintast.expression e
@@ -64,7 +64,7 @@ let report filename ~loc e =
 
 let expr2string e0 =
   let open Parsetree in
-  let e = MyUntype.untype_expression e0 in
+  let e = My_untype.expr e0 in
   let open Ast_helper in
   Format.asprintf "let (_: %a) = %a" Printtyp.type_expr e0.exp_type Pprintast.expression e
 ;;

src/typed/Record_punning.ml

@@ -115,7 +115,7 @@ module State = struct
                         (ident (mk_loc @@ Untypeast.lident_of_path ident_path))
                         (make_lident fname)) ))
           ; List.map st_over_other ~f:(function fname, expr ->
-              make_lident fname, MyUntype.untype_expression expr)
+              make_lident fname, My_untype.expr expr)
           ]
       in
       let record_id_untyped =