Check in the tests on 2 files

Supercedes #86

Author: chenglou

src/rescript-editor-support/BuildSystem.re

@@ -30,7 +30,8 @@ let getBsPlatformDir = rootPath => {
 let getCompiledBase = root => {
   Files.ifExists(root /+ "lib" /+ "bs");
 };
-let getStdlib = base => {
-  let%try_wrap bsPlatformDir = getBsPlatformDir(base);
-  bsPlatformDir /+ "lib" /+ "ocaml";
-};
+let getStdlib = base =>
+  switch (getBsPlatformDir(base)) {
+  | Error(e) => Error(e)
+  | Ok(bsPlatformDir) => Ok(bsPlatformDir /+ "lib" /+ "ocaml")
+  };

src/rescript-editor-support/FindFiles.re

@@ -299,36 +299,39 @@ let findDependencyFiles = (~debug, base, config) => {
                  let namespace = getNamespace(inner);
                  let directories =
                    getSourceDirectories(~includeDev=false, loc, inner);
-                 let%opt compiledBase = BuildSystem.getCompiledBase(loc);
                  /* |! "No compiled base found"; */
-                 if (debug) {
-                   Log.log("Compiled base: " ++ compiledBase);
+                 switch (BuildSystem.getCompiledBase(loc)) {
+                 | None => None
+                 | Some(compiledBase) =>
+                   if (debug) {
+                     Log.log("Compiled base: " ++ compiledBase);
+                   };
+                   let compiledDirectories =
+                     directories |> List.map(Files.fileConcat(compiledBase));
+                   let compiledDirectories =
+                     namespace == None
+                       ? compiledDirectories
+                       : [compiledBase, ...compiledDirectories];
+                   let files =
+                     findProjectFiles(
+                       ~debug,
+                       namespace,
+                       loc,
+                       directories,
+                       compiledBase,
+                     );
+                   /* let files =
+                      switch (namespace) {
+                      | None =>
+                         files
+                      | Some(namespace) =>
+                        files
+                        |> List.map(((name, paths)) =>
+                             (namespace ++ "-" ++ name, paths)
+                           )
+                      }; */
+                   Some((compiledDirectories, files));
                  };
-                 let compiledDirectories =
-                   directories |> List.map(Files.fileConcat(compiledBase));
-                 let compiledDirectories =
-                   namespace == None
-                     ? compiledDirectories
-                     : [compiledBase, ...compiledDirectories];
-                 let files =
-                   findProjectFiles(
-                     ~debug,
-                     namespace,
-                     loc,
-                     directories,
-                     compiledBase,
-                   );
-                 /* let files =
-                    switch (namespace) {
-                    | None =>
-                       files
-                    | Some(namespace) =>
-                      files
-                      |> List.map(((name, paths)) =>
-                           (namespace ++ "-" ++ name, paths)
-                         )
-                    }; */
-                 Some((compiledDirectories, files));
                | None => None
                };
              }
@@ -343,8 +346,11 @@ let findDependencyFiles = (~debug, base, config) => {
        });
   let (directories, files) = List.split(depFiles);
   let files = List.concat(files);
-  let%try stdlibDirectory = BuildSystem.getStdlib(base);
-  let directories = [stdlibDirectory, ...List.concat(directories)];
-  let results = files @ collectFiles(stdlibDirectory);
-  Ok((directories, results));
+  switch (BuildSystem.getStdlib(base)) {
+  | Error(e) => Error(e)
+  | Ok(stdlibDirectory) =>
+    let directories = [stdlibDirectory, ...List.concat(directories)];
+    let results = files @ collectFiles(stdlibDirectory);
+    Ok((directories, results));
+  };
 };