Cleanup

Author: shulhi

jscomp/syntax/src/res_parsetree_viewer.ml

@@ -1,30 +1,5 @@
 open Parsetree
 
-let attrs_string attrs =
-  List.map (fun (attr, _) -> print_endline attr.Asttypes.txt) attrs
-
-let ident_string ident =
-  match ident with
-  | Longident.Lident v -> v
-  | Longident.Ldot (_, v) -> v
-  | Longident.Lapply _ -> "Lapply"
-
-let print_ct ct =
-  match ct with
-  | {ptyp_desc = Ptyp_constr (ident, _); ptyp_attributes = attrs} ->
-    let _ =
-      print_endline
-        ("Ptyp_constr: " ^ ident_string ident.txt ^ " attrs: "
-        ^ string_of_int (List.length attrs))
-    in
-    let _ = attrs_string attrs in
-    ()
-  | {ptyp_desc = Ptyp_arrow _; ptyp_attributes = attrs} ->
-    print_endline
-      ("Ptyp_arrow: " ^ " attrs: " ^ string_of_int (List.length attrs))
-  | {ptyp_desc = Ptyp_variant _} -> print_endline "Ptyp_variant"
-  | _ -> print_endline "Something else"
-
 let arrow_type ?(arity = max_int) ?(attrs = []) ct =
   let has_as_attr attrs =
     Ext_list.exists attrs (fun (x, _) -> x.Asttypes.txt = "as")
@@ -72,7 +47,7 @@ let arrow_type ?(arity = max_int) ?(attrs = []) ct =
   match ct with
   | {ptyp_desc = Ptyp_arrow (Nolabel, _typ1, _typ2); ptyp_attributes = attrs1}
     as typ ->
-    let attrs = List.concat [attrs; attrs1] in
+    let attrs = attrs @ attrs1 in
     process attrs [] {typ with ptyp_attributes = []} arity
   | typ -> process attrs [] typ arity
 

jscomp/syntax/src/res_parsetree_viewer.mli

@@ -9,8 +9,6 @@ val arrow_type :
   * (Parsetree.attributes * Asttypes.arg_label * Parsetree.core_type) list
   * Parsetree.core_type
 
-val print_ct : Parsetree.core_type -> unit
-
 val functor_type :
   Parsetree.module_type ->
   (Parsetree.attributes * string Asttypes.loc * Parsetree.module_type option)