Fix getBinaryDirPath for workspaces/monorepos

Author: fhammerschmidt

server/src/server.ts

@@ -67,7 +67,7 @@ let send: (msg: p.Message) => void = (_) => {};
 
 let getBinaryDirPath = (projectRootPath: p.DocumentUri) =>
   extensionConfiguration.binaryPath === null
-    ? path.join(projectRootPath, c.nodeModulesBinDir)
+    ? utils.findBinaryFromProjectRoot(projectRootPath)
     : extensionConfiguration.binaryPath;
 
 let findRescriptBinary = (projectRootPath: p.DocumentUri) =>
@@ -618,7 +618,8 @@ function format(msg: p.RequestMessage): Array<p.Message> {
     // code will always be defined here, even though technically it can be undefined
     let code = getOpenedFileContent(params.textDocument.uri);
     let projectRootPath = utils.findProjectRootOfFile(filePath);
-    let bscBinaryPath = projectRootPath === null ? null : findBscBinary(projectRootPath);
+    let bscBinaryPath =
+      projectRootPath === null ? null : findBscBinary(projectRootPath);
     let formattedResult = utils.formatCode(bscBinaryPath, filePath, code);
     if (formattedResult.kind === "success") {
       let max = code.length;

server/src/utils.ts

@@ -38,6 +38,22 @@ export let findProjectRootOfFile = (
   }
 };
 
+export let findBinaryFromProjectRoot = (
+  source: p.DocumentUri
+): null | p.DocumentUri => {
+  let dir = path.dirname(source);
+  let bscNativeReScriptPath = path.join(dir, c.nodeModulesBinDir);
+
+  if (fs.existsSync(bscNativeReScriptPath)) {
+    return bscNativeReScriptPath;
+  } else if (dir === source) {
+    // reached the top
+    return null;
+  } else {
+    return findBinaryFromProjectRoot(dir);
+  }
+};
+
 export let findBinary = (
   binaryDirPath: p.DocumentUri | null,
   binaryName: string