fix comments

Author: jderochervlk

server/src/server.ts

@@ -1526,7 +1526,9 @@ async function onMessage(msg: p.Message) {
         (projectRootPath) => {
           return [
             {
-              // Watch compiler log
+              // 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: {
                 baseUri: utils.pathToURI(projectRootPath),
                 pattern: c.compilerLogPartialPath,
@@ -1535,7 +1537,7 @@ async function onMessage(msg: p.Message) {
                 p.WatchKind.Change | p.WatchKind.Create | p.WatchKind.Delete,
             },
             {
-              // Watch build artifacts (absolute path converted to relative)
+              // Watch build artifacts
               globPattern: {
                 baseUri: utils.pathToURI(projectRootPath),
                 pattern: path.join(c.compilerDirPartialPath, "**/*.{cmi,cmt}"),