add full id

Author: aspeddro

tools/npm/Tools_Docgen.res

@@ -56,6 +56,7 @@ type rec item =
       docstrings: array<string>,
       deprecated?: string,
       name: string,
+      moduletypeid?: string,
       source: source,
       items: array<item>,
     })

tools/npm/Tools_Docgen.resi

@@ -55,6 +55,7 @@ type rec item =
       docstrings: array<string>,
       deprecated?: string,
       name: string,
+      moduletypeid?: string,
       source: source,
       items: array<item>,
     })

tools/src/tools.ml

@@ -64,7 +64,7 @@ and docsForModule = {
   docstring: string list;
   deprecated: string option;
   name: string;
-  moduletype: string option;
+  moduletypeid: string option;
   source: source;
   items: docItem list;
 }
@@ -203,8 +203,8 @@ let rec stringifyDocItem ?(indentation = 0) ~originalEnv (item : docItem) =
           match m.deprecated with
           | Some d -> Some (wrapInQuotes d)
           | None -> None );
-        ( "moduletype",
-          match m.moduletype with
+        ( "moduletypeid",
+          match m.moduletypeid with
           | Some path -> Some (wrapInQuotes path)
           | None -> None );
         ("docstrings", Some (stringifyDocstrings m.docstring));
@@ -368,7 +368,7 @@ let extractDocs ~entryPointFile ~debug =
             id = modulePath |> List.rev |> ident;
             docstring = structure.docstring |> List.map String.trim;
             name = structure.name;
-            moduletype = None;
+            moduletypeid = None;
             deprecated = structure.deprecated;
             source =
               {
@@ -452,7 +452,7 @@ let extractDocs ~entryPointFile ~debug =
                             {
                               id = modulePath |> List.rev |> ident;
                               name = m.name;
-                              moduletype = None;
+                              moduletypeid = None;
                               docstring = item.docstring @ m.docstring;
                               deprecated = item.deprecated;
                               source;
@@ -489,7 +489,14 @@ let extractDocs ~entryPointFile ~debug =
                          extractDocsForModule ~modulePath:(m.name :: modulePath)
                            m
                        in
-                       Some (Module {docs with moduletype = Some (Path.name p)})
+                       Some
+                         (Module
+                            {
+                              docs with
+                              moduletypeid =
+                                Some
+                                  (makeId ~identifier:(Path.name p) modulePath);
+                            })
                      | _ -> None);
           }
         in

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

@@ -311,7 +311,7 @@
     "id": "DocExtractionRes.M",
     "name": "M",
     "kind": "module",
-    "moduletype": "Example",
+    "moduletypeid": "DocExtractionRes.Example",
     "docstrings": ["implementation of Example module type"],
     "source": {
       "filepath": "src/DocExtractionRes.res",