adjust autocomplete to recent changes in stdlib

Author: zth

analysis/src/CompletionBackEnd.ml

@@ -1290,6 +1290,8 @@ let rec getCompletionsForContextPath ~package ~opens ~rawOpens ~allFiles ~pos
         intModulePath;
         floatModulePath;
         promiseModulePath;
+        listModulePath;
+        resultModulePath;
       } =
         package.builtInCompletionModules
       in
@@ -1307,9 +1309,9 @@ let rec getCompletionsForContextPath ~package ~opens ~rawOpens ~allFiles ~pos
         | Path.Pident id when Ident.name id = "int" -> intModulePath
         | Path.Pident id when Ident.name id = "float" -> floatModulePath
         | Path.Pident id when Ident.name id = "promise" -> promiseModulePath
-        | Path.Pident id when Ident.name id = "list" -> ["Belt"; "List"]
+        | Path.Pident id when Ident.name id = "list" -> listModulePath
+        | Path.Pident id when Ident.name id = "result" -> resultModulePath
         | Path.Pident id when Ident.name id = "lazy_t" -> ["Lazy"]
-        | Path.Pident id when Ident.name id = "result" -> ["Belt"; "Result"]
         | Path.Pident id when Ident.name id = "char" -> ["Char"]
         | _ -> (
           match loop path with

analysis/src/Packages.ml

@@ -98,7 +98,7 @@ let newBsPackage ~rootPath =
                   opens_from_bsc_flags
                   |> List.find_opt (fun opn ->
                          match opn with
-                         | ["ReScriptStdLib"] -> true
+                         | ["RescriptStdlib"] -> true
                          | _ -> false)
                   |> Option.is_some
                  then
@@ -109,6 +109,8 @@ let newBsPackage ~rootPath =
                     intModulePath = ["Int"];
                     floatModulePath = ["Float"];
                     promiseModulePath = ["Promise"];
+                    listModulePath = ["List"];
+                    resultModulePath = ["Result"];
                   }
                  else
                    {
@@ -118,6 +120,8 @@ let newBsPackage ~rootPath =
                      intModulePath = ["Belt"; "Int"];
                      floatModulePath = ["Belt"; "Float"];
                      promiseModulePath = ["Js"; "Promise"];
+                     listModulePath = ["Belt"; "List"];
+                     resultModulePath = ["Belt"; "Result"];
                    });
              })))
     | None -> None)

analysis/src/SharedTypes.ml

@@ -368,6 +368,8 @@ type builtInCompletionModules = {
   intModulePath: string list;
   floatModulePath: string list;
   promiseModulePath: string list;
+  listModulePath: string list;
+  resultModulePath: string list;
 }
 
 type package = {