Add clarifying comments.

Author: zth

analysis/src/Hint.ml

@@ -141,6 +141,8 @@ let codeLens ~path ~debug =
     Ast_iterator.default_iterator.value_binding iterator vb
   in
   let iterator = {Ast_iterator.default_iterator with value_binding} in
+  (* We only print code lenses in implementation files. This is because they'd be redundant in interface files,
+     where the definition itself will be the same thing as what would've been printed in the code lens. *)
   (if Filename.check_suffix path ".res" then
    let parser =
      Res_driver.parsingEngine.parseImplementation ~forPrinter:false

analysis/src/Protocol.ml

@@ -1,8 +1,13 @@
 type position = {line: int; character: int}
 type range = {start: position; end_: position}
 type markupContent = {kind: string; value: string}
+
+(* https://microsoft.github.io/language-server-protocol/specifications/lsp/3.17/specification/#command *)
 type command = {title: string; command: string}
+
+(* https://microsoft.github.io/language-server-protocol/specifications/lsp/3.17/specification/#codeLens *)
 type codeLens = {range: range; command: command option}
+
 type inlayHint = {
   position: position;
   label: string;

client/src/extension.ts

@@ -240,6 +240,11 @@ export function activate(context: ExtensionContext) {
   // language client, and because of that requires a full restart.
   context.subscriptions.push(
     workspace.onDidChangeConfiguration(({ affectsConfiguration }) => {
+      // Put any configuration that, when changed, requires a full restart of
+      // the server here. That will typically be any configuration that affects
+      // the capabilities declared by the server, since those cannot be updated
+      // on the fly, and require a full restart with new capabilities set when
+      // initializing.
       if (
         affectsConfiguration("rescript.settings.inlayHints") ||
         affectsConfiguration("rescript.settings.codeLens")

server/src/server.ts

@@ -34,6 +34,9 @@ interface extensionConfiguration {
   codeLens: boolean;
   binaryPath: string | null;
 }
+
+// All values here are temporary, and will be overridden as the server is
+// initialized, and the current config is received from the client.
 let extensionConfiguration: extensionConfiguration = {
   askToStartBuild: true,
   inlayHints: {