add module name field (#819)

Author: aspeddro

analysis/src/DocExtraction.ml

@@ -154,6 +154,7 @@ let rec stringifyDocItem ?(indentation = 0) ~originalEnv (item : docItem) =
     stringifyObject ~startOnNewline:true ~indentation
       [
         ("id", Some (wrapInQuotes m.id));
+        ("name", Some (wrapInQuotes m.name));
         ("kind", Some (wrapInQuotes "module"));
         ( "item",
           Some
@@ -165,6 +166,7 @@ let rec stringifyDocItem ?(indentation = 0) ~originalEnv (item : docItem) =
       [
         ("id", Some (wrapInQuotes m.id));
         ("kind", Some (wrapInQuotes "moduleAlias"));
+        ("name", Some (wrapInQuotes m.name));
         ("docstrings", Some (stringifyDocstrings m.docstring));
         ("signature", Some (m.signature |> Json.escape |> wrapInQuotes));
       ]

analysis/tests/src/expected/DocExtraction2.res.txt

@@ -22,6 +22,7 @@ preferring found resi file for impl: src/DocExtraction2.resi
   }, 
   {
     "id": "InnerModule.DocExtraction2",
+    "name": "InnerModule",
     "kind": "module",
     "item": 
     {

analysis/tests/src/expected/DocExtraction2.resi.txt

@@ -21,6 +21,7 @@ extracting docs for src/DocExtraction2.resi
   }, 
   {
     "id": "InnerModule.DocExtraction2",
+    "name": "InnerModule",
     "kind": "module",
     "item": 
     {

analysis/tests/src/expected/DocExtractionRes.res.txt

@@ -43,6 +43,7 @@ extracting docs for src/DocExtractionRes.res
   }, 
   {
     "id": "SomeInnerModule.DocExtractionRes",
+    "name": "SomeInnerModule",
     "kind": "module",
     "item": 
     {
@@ -94,6 +95,7 @@ extracting docs for src/DocExtractionRes.res
   }, 
   {
     "id": "AnotherModule.DocExtractionRes",
+    "name": "AnotherModule",
     "kind": "module",
     "item": 
     {
@@ -103,6 +105,7 @@ extracting docs for src/DocExtractionRes.res
       {
         "id": "DocExtractionRes.AnotherModule.SomeInnerModule",
         "kind": "moduleAlias",
+        "name": "LinkedModule",
         "docstrings": ["This links another module. Neat."],
         "signature": "module LinkedModule = SomeInnerModule"
       }, 
@@ -148,6 +151,7 @@ extracting docs for src/DocExtractionRes.res
   }, 
   {
     "id": "ModuleWithThingsThatShouldNotBeExported.DocExtractionRes",
+    "name": "ModuleWithThingsThatShouldNotBeExported",
     "kind": "module",
     "item": 
     {