rename Cmt.fullFromPath to Cmt.loadFullCmtFromPath

Author: aspeddro

analysis/src/Cmt.ml

@@ -31,6 +31,6 @@ let fullFromModule ~package ~moduleName =
     fullFromUri ~uri
   else None
 
-let fullFromPath ~path =
+let loadFullCmtFromPath ~path =
   let uri = Uri.fromPath path in
   fullFromUri ~uri

analysis/src/Commands.ml

@@ -13,7 +13,7 @@ let getCompletions ~debug ~path ~pos ~currentFile ~forHover =
         Printf.printf "Completable: %s\n"
           (SharedTypes.Completable.toString completable);
       (* Only perform expensive ast operations if there are completables *)
-      match Cmt.fullFromPath ~path with
+      match Cmt.loadFullCmtFromPath ~path with
       | None -> []
       | Some {file; package} ->
         let env = SharedTypes.QueryEnv.fromFile file in
@@ -46,7 +46,7 @@ let codeLens ~path ~debug =
 
 let hover ~path ~pos ~currentFile ~debug ~supportsMarkdownLinks =
   let result =
-    match Cmt.fullFromPath ~path with
+    match Cmt.loadFullCmtFromPath ~path with
     | None -> Protocol.null
     | Some full -> (
       match References.getLocItem ~full ~pos ~debug with
@@ -102,7 +102,7 @@ let codeAction ~path ~pos ~currentFile ~debug =
 
 let definition ~path ~pos ~debug =
   let locationOpt =
-    match Cmt.fullFromPath ~path with
+    match Cmt.loadFullCmtFromPath ~path with
     | None -> None
     | Some full -> (
       match References.getLocItem ~full ~pos ~debug with
@@ -138,7 +138,7 @@ let definition ~path ~pos ~debug =
 
 let typeDefinition ~path ~pos ~debug =
   let maybeLocation =
-    match Cmt.fullFromPath ~path with
+    match Cmt.loadFullCmtFromPath ~path with
     | None -> None
     | Some full -> (
       match References.getLocItem ~full ~pos ~debug with
@@ -157,7 +157,7 @@ let typeDefinition ~path ~pos ~debug =
 
 let references ~path ~pos ~debug =
   let allLocs =
-    match Cmt.fullFromPath ~path with
+    match Cmt.loadFullCmtFromPath ~path with
     | None -> []
     | Some full -> (
       match References.getLocItem ~full ~pos ~debug with
@@ -183,7 +183,7 @@ let references ~path ~pos ~debug =
 
 let rename ~path ~pos ~newName ~debug =
   let result =
-    match Cmt.fullFromPath ~path with
+    match Cmt.loadFullCmtFromPath ~path with
     | None -> Protocol.null
     | Some full -> (
       match References.getLocItem ~full ~pos ~debug with

analysis/src/Hint.ml

@@ -77,7 +77,7 @@ let inlay ~path ~pos ~maxLength ~debug =
    in
    let {Res_driver.parsetree = structure} = parser ~filename:path in
    iterator.structure iterator structure |> ignore);
-  match Cmt.fullFromPath ~path with
+  match Cmt.loadFullCmtFromPath ~path with
   | None -> None
   | Some full ->
     let result =
@@ -141,7 +141,7 @@ let codeLens ~path ~debug =
    in
    let {Res_driver.parsetree = structure} = parser ~filename:path in
    iterator.structure iterator structure |> ignore);
-  match Cmt.fullFromPath ~path with
+  match Cmt.loadFullCmtFromPath ~path with
   | None -> None
   | Some full ->
     let result =

analysis/src/Hover.ml

@@ -133,7 +133,7 @@ let getHoverViaCompletions ~debug ~path ~pos ~currentFile ~forHover
         Printf.printf "Completable: %s\n"
           (SharedTypes.Completable.toString completable);
       (* Only perform expensive ast operations if there are completables *)
-      match Cmt.fullFromPath ~path with
+      match Cmt.loadFullCmtFromPath ~path with
       | None -> None
       | Some {file; package} -> (
         let env = SharedTypes.QueryEnv.fromFile file in

analysis/src/SignatureHelp.ml

@@ -16,7 +16,7 @@ let findFunctionType ~currentFile ~debug ~path ~pos =
       with
       | None -> None
       | Some (completable, scope) -> (
-        match Cmt.fullFromPath ~path with
+        match Cmt.loadFullCmtFromPath ~path with
         | None -> None
         | Some {file; package} ->
           let env = QueryEnv.fromFile file in

analysis/src/Xform.ml

@@ -301,7 +301,7 @@ let parse ~filename =
   (structure, printExpr, printStructureItem)
 
 let extractCodeActions ~path ~pos ~currentFile ~debug =
-  match Cmt.fullFromPath ~path with
+  match Cmt.loadFullCmtFromPath ~path with
   | Some full when Files.classifySourceFile currentFile = Res ->
     let structure, printExpr, printStructureItem =
       parse ~filename:currentFile