remove location field

Author: aspeddro

analysis/src/DocExtraction.ml

@@ -29,15 +29,13 @@ type docItem =
       docstring: string list;
       signature: string;
       name: string;
-      loc: Warnings.loc;
       deprecated: string option;
     }
   | Type of {
       id: string;
       docstring: string list;
       signature: string;
       name: string;
-      loc: Warnings.loc;
       deprecated: string option;
       detail: docItemDetail option;
           (** Additional documentation for constructors and record fields, if available. *)
@@ -117,17 +115,6 @@ let stringifyDetail ?(indentation = 0) (detail : docItemDetail) =
             |> array) );
       ]
 
-let stringifyLoc loc ~indentation =
-  let open Protocol in
-  let line, col = Loc.start loc in
-  let path = loc.loc_start.pos_fname in
-  stringifyObject ~startOnNewline:false ~indentation:(indentation + 1)
-    [
-      ("path", Some (wrapInQuotes path));
-      ("line", Some (string_of_int (line + 1)));
-      ("col", Some (string_of_int (col + 1)));
-    ]
-
 let rec stringifyDocItem ?(indentation = 0) ~originalEnv (item : docItem) =
   let open Protocol in
   match item with
@@ -141,7 +128,6 @@ let rec stringifyDocItem ?(indentation = 0) ~originalEnv (item : docItem) =
           match deprecated with
           | Some d -> Some (wrapInQuotes d)
           | None -> None );
-        (* ("location", Some (stringifyLoc loc ~indentation)); *)
         ( "signature",
           Some (signature |> String.trim |> Json.escape |> wrapInQuotes) );
         ("docstrings", Some (stringifyDocstrings docstring));
@@ -156,7 +142,6 @@ let rec stringifyDocItem ?(indentation = 0) ~originalEnv (item : docItem) =
           match deprecated with
           | Some d -> Some (wrapInQuotes d)
           | None -> None );
-        (* ("location", Some (stringifyLoc loc ~indentation)); *)
         ("signature", Some (signature |> Json.escape |> wrapInQuotes));
         ("docstrings", Some (stringifyDocstrings docstring));
         ( "detail",
@@ -289,7 +274,6 @@ let extractDocs ~path ~debug =
                             "let " ^ item.name ^ ": " ^ Shared.typeToString typ
                             |> formatCode;
                           name = item.name;
-                          loc = item.loc;
                           deprecated = item.deprecated;
                         })
                  | Type (typ, _) ->
@@ -303,7 +287,6 @@ let extractDocs ~path ~debug =
                             |> Shared.declToString item.name
                             |> formatCode;
                           name = item.name;
-                          loc = item.loc;
                           deprecated = item.deprecated;
                           detail = typeDetail typ ~full ~env;
                         })

analysis/src/ProcessCmt.ml

@@ -59,7 +59,6 @@ let rec forTypeSignatureItem ~(env : SharedTypes.Env.t) ~(exported : Exported.t)
         Module.kind = Module.Value declared.item;
         name = declared.name.txt;
         docstring = declared.docstring;
-        loc;
         deprecated = declared.deprecated;
       };
     ]
@@ -134,7 +133,6 @@ let rec forTypeSignatureItem ~(env : SharedTypes.Env.t) ~(exported : Exported.t)
         Module.kind = Type (declared.item, recStatus);
         name = declared.name.txt;
         docstring = declared.docstring;
-        loc = type_loc;
         deprecated = declared.deprecated;
       };
     ]
@@ -153,7 +151,6 @@ let rec forTypeSignatureItem ~(env : SharedTypes.Env.t) ~(exported : Exported.t)
         Module.kind = Module declared.item;
         name = declared.name.txt;
         docstring = declared.docstring;
-        loc = md_loc;
         deprecated = declared.deprecated;
       };
     ]
@@ -318,7 +315,6 @@ let forTypeDeclaration ~env ~(exported : Exported.t)
     Module.kind = Module.Type (declared.item, recStatus);
     name = declared.name.txt;
     docstring = declared.docstring;
-    loc = typ_loc;
     deprecated = declared.deprecated;
   }
 
@@ -338,7 +334,6 @@ let rec forSignatureItem ~env ~(exported : Exported.t)
         Module.kind = Module.Value declared.item;
         name = declared.name.txt;
         docstring = declared.docstring;
-        loc = name.loc;
         deprecated = declared.deprecated;
       };
     ]
@@ -370,7 +365,6 @@ let rec forSignatureItem ~env ~(exported : Exported.t)
         Module.kind = Module declared.item;
         name = declared.name.txt;
         docstring = declared.docstring;
-        loc = name.loc;
         deprecated = declared.deprecated;
       };
     ]
@@ -448,7 +442,6 @@ let rec forStructureItem ~env ~(exported : Exported.t) item =
             Module.kind = Module.Value declared.item;
             name = declared.name.txt;
             docstring = declared.docstring;
-            loc = pat.pat_loc;
             deprecated = declared.deprecated;
           }
           :: !items
@@ -484,7 +477,6 @@ let rec forStructureItem ~env ~(exported : Exported.t) item =
         Module.kind = Module declared.item;
         name = declared.name.txt;
         docstring = declared.docstring;
-        loc = name.loc;
         deprecated = declared.deprecated;
       };
     ]
@@ -516,7 +508,6 @@ let rec forStructureItem ~env ~(exported : Exported.t) item =
         Module.kind = Module modTypeItem;
         name = declared.name.txt;
         docstring = declared.docstring;
-        loc = name.loc;
         deprecated = declared.deprecated;
       };
     ]
@@ -546,7 +537,6 @@ let rec forStructureItem ~env ~(exported : Exported.t) item =
         Module.kind = Value declared.item;
         name = declared.name.txt;
         docstring = declared.docstring;
-        loc = vd.val_loc;
         deprecated = declared.deprecated;
       };
     ]

analysis/src/SharedTypes.ml

@@ -126,7 +126,6 @@ module Module = struct
     kind: kind;
     name: string;
     docstring: string list;
-    loc: Warnings.loc;
     deprecated: string option;
   }