change fn name

Author: zth

analysis/src/Files.ml

@@ -98,7 +98,7 @@ let rec collect ?(checkDir = fun _ -> true) path test =
 
 type classifiedFile = Res | Resi | Other
 
-let classifyFile path =
+let classifySourceFile path =
   if Filename.check_suffix path ".res" && exists path then Res
   else if Filename.check_suffix path ".resi" && exists path then Resi
   else Other

analysis/src/Hint.ml

@@ -89,7 +89,7 @@ let inlay ~path ~pos ~maxLength ~debug =
     Ast_iterator.default_iterator.value_binding iterator vb
   in
   let iterator = {Ast_iterator.default_iterator with value_binding} in
-  (if Files.classifyFile path = Res then
+  (if Files.classifySourceFile path = Res then
    let parser =
      Res_driver.parsingEngine.parseImplementation ~forPrinter:false
    in
@@ -150,7 +150,7 @@ let codeLens ~path ~debug =
   let iterator = {Ast_iterator.default_iterator with value_binding} in
   (* We only print code lenses in implementation files. This is because they'd be redundant in interface files,
      where the definition itself will be the same thing as what would've been printed in the code lens. *)
-  (if Files.classifyFile path = Res then
+  (if Files.classifySourceFile path = Res then
    let parser =
      Res_driver.parsingEngine.parseImplementation ~forPrinter:false
    in

analysis/src/SemanticTokens.ml

@@ -398,15 +398,17 @@ let command ~debug ~emitter ~path =
   let structure_item (iterator : Ast_iterator.iterator)
       (item : Parsetree.structure_item) =
     (match item.pstr_desc with
-    | Pstr_primitive {pval_name = {txt = id; loc}} -> emitter |> emitVariable ~id ~debug ~loc;
+    | Pstr_primitive {pval_name = {txt = id; loc}} ->
+      emitter |> emitVariable ~id ~debug ~loc
     | _ -> ());
     Ast_iterator.default_iterator.structure_item iterator item
   in
 
   let signature_item (iterator : Ast_iterator.iterator)
       (item : Parsetree.signature_item) =
     (match item.psig_desc with
-    | Psig_value {pval_name = {txt = id; loc}} -> emitter |> emitVariable ~id ~debug ~loc;
+    | Psig_value {pval_name = {txt = id; loc}} ->
+      emitter |> emitVariable ~id ~debug ~loc
     | _ -> ());
     Ast_iterator.default_iterator.signature_item iterator item
   in
@@ -431,7 +433,7 @@ let command ~debug ~emitter ~path =
     }
   in
 
-  if Files.classifyFile path = Res then (
+  if Files.classifySourceFile path = Res then (
     let parser =
       Res_driver.parsingEngine.parseImplementation ~forPrinter:false
     in

analysis/src/Xform.ml

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