fix: update globs to work on windows with WSL

Author: jderochervlk

server/src/server.ts

@@ -1528,23 +1528,43 @@ async function onMessage(msg: p.Message) {
             // Only watch the root compiler log for each workspace folder.
             // In monorepos, `**/lib/bs/.compiler.log` matches every package and dependency,
             // causing a burst of events per save.
-            globPattern: path.join(projectRootPath, c.compilerLogPartialPath),
+            globPattern: {
+              baseUri: utils.pathToURI(projectRootPath),
+              pattern: c.compilerDirPartialPath,
+            },
             kind: p.WatchKind.Change | p.WatchKind.Create | p.WatchKind.Delete,
           },
           {
-            globPattern: path.join(
-              projectRootPath,
-              "**",
-              c.buildNinjaPartialPath,
-            ),
+            // Watch source files
+            globPattern: {
+              baseUri: utils.pathToURI(projectRootPath),
+              pattern: "**/*.{res,resi}",
+            },
             kind: p.WatchKind.Change | p.WatchKind.Create | p.WatchKind.Delete,
           },
           {
-            globPattern: `${path.join(projectRootPath, "**", c.compilerDirPartialPath)}/**/*.{cmt,cmi}`,
-            kind: p.WatchKind.Change | p.WatchKind.Delete,
+            // Watch build output
+            globPattern: {
+              baseUri: utils.pathToURI(projectRootPath),
+              pattern: path.join(
+                "**",
+                c.compilerDirPartialPath,
+                "**/*.{cmt,cmi}",
+              ),
+            },
+            kind: p.WatchKind.Change | p.WatchKind.Create | p.WatchKind.Delete,
+          },
+          {
+            // Watch lock file
+            globPattern: {
+              baseUri: utils.pathToURI(projectRootPath),
+              pattern: "lib/rescript.lock",
+            },
+            kind: p.WatchKind.Change | p.WatchKind.Create | p.WatchKind.Delete,
           },
         ],
       );
+
       const registrationParams: p.RegistrationParams = {
         registrations: [
           {

server/src/utils.ts

@@ -1080,4 +1080,4 @@ export let rangeContainsRange = (
     return false;
   }
   return true;
-};
+};