better name

Author: zth

analysis/src/CompletionBackEnd.ml

@@ -502,7 +502,7 @@ let getComplementaryCompletionsForTypedValue ~opens ~allFiles ~scope ~env prefix
              Utils.checkName name ~prefix ~exact
              && not
                   (* TODO complete the namespaced name too *)
-                  (Utils.hasUnallowedChars name)
+                  (Utils.fileNameHasUnallowedChars name)
            then
              Some
                (Completion.create name ~env ~kind:(Completion.FileModule name))
@@ -528,7 +528,7 @@ let getCompletionsForPath ~debug ~package ~opens ~full ~pos ~exact ~scope
                Utils.checkName name ~prefix ~exact
                && not
                     (* TODO complete the namespaced name too *)
-                    (Utils.hasUnallowedChars name)
+                    (Utils.fileNameHasUnallowedChars name)
              then
                Some
                  (Completion.create name ~env ~kind:(Completion.FileModule name))

analysis/src/Utils.ml

@@ -222,7 +222,7 @@ let cutAfterDash s =
   | n -> ( try String.sub s 0 n with Invalid_argument _ -> s)
   | exception Not_found -> s
 
-let hasUnallowedChars s =
+let fileNameHasUnallowedChars s =
   let regexp = Str.regexp "[^A-Za-z0-9]" in
   try
     ignore (Str.search_forward regexp s 0);