tools: docstring for nested submodules (#897)

* docstring for nested submodules

* update CHANGELOG.md

Author: aspeddro

tools/CHANGELOG.md

@@ -12,6 +12,11 @@
 
 ## master
 
+#### :bug: Bug Fix
+
+- Print docstrings for nested submodules. https://github.com/rescript-lang/rescript-vscode/pull/897
+- Print `deprecated` field for module. https://github.com/rescript-lang/rescript-vscode/pull/897
+
 ## 0.4.0
 
 #### :bug: Bug Fix

tools/src/tools.ml

@@ -172,6 +172,10 @@ let rec stringifyDocItem ?(indentation = 0) ~originalEnv (item : docItem) =
         ("id", Some (wrapInQuotes m.id));
         ("name", Some (wrapInQuotes m.name));
         ("kind", Some (wrapInQuotes "module"));
+        ( "deprecated",
+          match m.deprecated with
+          | Some d -> Some (wrapInQuotes d)
+          | None -> None );
         ("docstrings", Some (stringifyDocstrings m.docstring));
         ( "items",
           Some
@@ -353,10 +357,17 @@ let extractDocs ~path ~debug =
                             })
                      | Module (Structure m) ->
                        (* module Whatever = {} in res or module Whatever: {} in resi. *)
+                       let modulePath = m.name :: modulePath in
+                       let docs = extractDocsForModule ~modulePath m in
                        Some
                          (Module
-                            (extractDocsForModule
-                               ~modulePath:(m.name :: modulePath) m))
+                            {
+                              id = modulePath |> List.rev |> ident;
+                              name = m.name;
+                              docstring = item.docstring @ m.docstring;
+                              deprecated = item.deprecated;
+                              items = docs.items;
+                            })
                      | Module
                          (Constraint (Structure _impl, Structure interface)) ->
                        (* module Whatever: { <interface> } = { <impl> }. Prefer the interface. *)

tools/tests/src/ModC.res

@@ -0,0 +1,6 @@
+/**
+User Module
+*/
+module User = {
+  let name = "ReScript"
+}

tools/tests/src/ModC.resi

@@ -0,0 +1,6 @@
+/**
+User Module from interface file
+*/
+module User: {
+  let name: string
+}

tools/tests/src/expected/ModC.res.json

@@ -0,0 +1,20 @@
+
+{
+  "name": "ModC",
+  "docstrings": [],
+  "items": [
+  {
+    "id": "ModC.User",
+    "name": "User",
+    "kind": "module",
+    "docstrings": ["User Module from interface file"],
+    "items": [
+    {
+      "id": "ModC.User.name",
+      "kind": "value",
+      "name": "name",
+      "signature": "let name: string",
+      "docstrings": []
+    }]
+  }]
+}

tools/tests/src/expected/ModC.resi.json

@@ -0,0 +1,20 @@
+
+{
+  "name": "ModC",
+  "docstrings": [],
+  "items": [
+  {
+    "id": "ModC.User",
+    "name": "User",
+    "kind": "module",
+    "docstrings": ["User Module from interface file"],
+    "items": [
+    {
+      "id": "ModC.User.name",
+      "kind": "value",
+      "name": "name",
+      "signature": "let name: string",
+      "docstrings": []
+    }]
+  }]
+}