rename

Author: cristianoc

analysis/src/Cmt.ml

@@ -10,7 +10,9 @@ let fromUri ~uri =
     in
     match Hashtbl.find_opt package.pathsForModule moduleName with
     | Some paths ->
-      let cmt = SharedTypes.getCmt ~interface:(Utils.endsWith path "i") paths in
+      let cmt =
+        SharedTypes.getCmtPath ~interface:(Utils.endsWith path "i") paths
+      in
       ProcessCmt.fullForCmt ~moduleName ~package ~uri cmt
     | None ->
       prerr_endline ("can't find module " ^ moduleName);

analysis/src/ProcessCmt.ml

@@ -1260,7 +1260,7 @@ let fileForModule modname ~package =
   if Hashtbl.mem package.pathsForModule modname then (
     let paths = Hashtbl.find package.pathsForModule modname in
     (* TODO: do better *)
-    let cmt = SharedTypes.getCmt ~interface:false paths in
+    let cmt = SharedTypes.getCmtPath ~interface:false paths in
     let uri = SharedTypes.getUri paths in
     Log.log ("FINDING docs for module " ^ SharedTypes.showPaths paths);
     Log.log ("FINDING " ^ cmt ^ " uri " ^ Uri2.toString uri);

analysis/src/SharedTypes.ml

@@ -142,7 +142,7 @@ let getUri p =
   | Namespace {cmt} -> Uri2.fromPath cmt
   | IntfAndImpl {resi} -> Uri2.fromPath resi
 
-let getCmt ~interface p =
+let getCmtPath ~interface p =
   match p with
   | Impl {cmt} -> cmt
   | Namespace {cmt} -> cmt