analysis: get rid of PervasivesU

Author: cknitt

analysis/src/CompletionBackEnd.ml

@@ -1320,14 +1320,8 @@ let getOpens ~debug ~rawOpens ~package ~env =
   if debug && packageOpens <> [] then
     Printf.printf "%s\n"
       ("Package opens "
-      ^ String.concat " "
-          (packageOpens
-          |> List.map (fun p ->
-                 p
-                 |> List.map (fun name ->
-                        (* Unify formatting between curried and uncurried *)
-                        if name = "PervasivesU" then "Pervasives" else name)
-                 |> pathToString)));
+      ^ String.concat " " (packageOpens |> List.map (fun p -> p |> pathToString))
+      );
   let resolvedOpens =
     resolveOpens ~env (List.rev (rawOpens @ packageOpens)) ~package
   in

analysis/src/Packages.ml

@@ -134,8 +134,7 @@ let newBsPackage ~rootPath =
              | None -> []
            in
            let opens =
-             [(if uncurried then "PervasivesU" else "Pervasives"); "JsxModules"]
-             :: opens_from_namespace
+             ["Pervasives"; "JsxModules"] :: opens_from_namespace
              |> List.rev_append opens_from_bsc_flags
              |> List.map (fun path -> path @ ["place holder"])
            in

analysis/src/TypeUtils.ml

@@ -505,8 +505,7 @@ let getBuiltinFromTypePath path =
     | _ -> None)
   | Pdot (Pdot (Pident m, "Re", _), "t", _) when Ident.name m = "Js" ->
     Some RegExp
-  | Pdot (Pident id, "result", _)
-    when Ident.name id = "Pervasives" || Ident.name id = "PervasivesU" ->
+  | Pdot (Pident id, "result", _) when Ident.name id = "Pervasives" ->
     Some Result
   | _ -> None