Remove path to_string

Author: nojaf

analysis/src/CmtViewer.ml

@@ -95,7 +95,7 @@ let dump ?filter rescript_json cmt_path =
         dump_module indent m
     and dump_module indent (module_ : Module.t) =
       match module_ with
-      | Ident path -> Printf.printf "Module (Ident) %s\n" (Path.to_string path)
+      | Ident path -> Printf.printf "Module (Ident) %s\n" (Path.name path)
       | Structure structure -> dump_structure indent structure
       | Constraint (m1, m2) ->
         dump_module indent m1;

compiler/ml/path.ml

@@ -104,8 +104,3 @@ let is_constructor_typath p =
   match constructor_typath p with
   | Regular _ -> false
   | _ -> true
-
-let rec to_string = function
-  | Pident id -> Ident.name id
-  | Pdot (p, s, _) -> to_string p ^ "." ^ s
-  | Papply (p1, p2) -> to_string p1 ^ "(" ^ to_string p2 ^ ")"

compiler/ml/path.mli

@@ -42,4 +42,3 @@ type typath =
 
 val constructor_typath : t -> typath
 val is_constructor_typath : t -> bool
-val to_string : t -> string