File tree Expand file tree Collapse file tree 5 files changed +3
-19
lines changed Expand file tree Collapse file tree 5 files changed +3
-19
lines changed Original file line number Diff line number Diff line change @@ -57,7 +57,7 @@ let hover ~file ~line ~col ~extra ~package =
57
57
let locIsModule =
58
58
match loc with
59
59
| SharedTypes. LModule _ | TopLevelModule _ -> true
60
- | TypeDefinition _ | Typed _ | Constant _ | Explanation _ -> false
60
+ | TypeDefinition _ | Typed _ | Constant _ -> false
61
61
in
62
62
let uriLocOpt = References. definitionForLoc ~package ~file loc in
63
63
let skipZero =
@@ -97,7 +97,7 @@ let definition ~file ~line ~col ~extra ~package =
97
97
let locIsModule =
98
98
match loc with
99
99
| SharedTypes. LModule _ | TopLevelModule _ -> true
100
- | TypeDefinition _ | Typed _ | Constant _ | Explanation _ -> false
100
+ | TypeDefinition _ | Typed _ | Constant _ -> false
101
101
in
102
102
let uriLocOpt = References. definitionForLoc ~package ~file loc in
103
103
match uriLocOpt with
Original file line number Diff line number Diff line change @@ -49,8 +49,7 @@ let showModule ~docstring ~(file : SharedTypes.file) ~name
49
49
50
50
let newHover ~(file : SharedTypes.file ) ~package loc =
51
51
match loc with
52
- | SharedTypes. Explanation text -> Some text
53
- | TypeDefinition (name , decl , _stamp ) ->
52
+ | SharedTypes. TypeDefinition (name , decl , _stamp ) ->
54
53
let typeDef = Shared. declToString name decl in
55
54
Some (codeBlock typeDef)
56
55
| LModule (Definition (stamp, _tip)) | LModule (LocalReference (stamp, _tip))
Original file line number Diff line number Diff line change @@ -919,17 +919,6 @@ struct
919
919
920
920
let enter_structure_item item =
921
921
match item.str_desc with
922
- | Tstr_attribute
923
- ( {Asttypes. txt = " ocaml.explanation" ; loc},
924
- PStr
925
- [
926
- {
927
- pstr_desc =
928
- Pstr_eval
929
- ({pexp_desc = Pexp_constant (Pconst_string (doc, _))}, _);
930
- };
931
- ] ) ->
932
- addLocation loc (Explanation doc)
933
922
| Tstr_include {incl_mod = expr } -> handle_module_expr expr.mod_desc
934
923
| Tstr_module {mb_expr} -> handle_module_expr mb_expr.mod_desc
935
924
| Tstr_open {open_path; open_txt = {txt; loc} } ->
Original file line number Diff line number Diff line change @@ -308,7 +308,6 @@ let definitionForLoc ~package ~file loc =
308
308
let loc = validateLoc declared.name.loc declared.extentLoc in
309
309
Some (file.uri, loc))
310
310
else None )
311
- | Explanation _
312
311
| Typed (_, NotFound )
313
312
| LModule (NotFound | Definition (_, _))
314
313
| TypeDefinition (_, _, _)
@@ -448,7 +447,6 @@ let forLocalStamp ~package ~file ~extra stamp tip =
448
447
449
448
let allReferencesForLoc ~package ~file ~extra loc =
450
449
match loc with
451
- | Explanation _
452
450
| Typed (_, NotFound )
453
451
| LModule NotFound
454
452
| TopLevelModule _ | Constant _ ->
Original file line number Diff line number Diff line change @@ -180,7 +180,6 @@ type loc =
180
180
| LModule of locKind
181
181
| TopLevelModule of string
182
182
| TypeDefinition of string * Types .type_declaration * int
183
- | Explanation of string
184
183
185
184
type openTracker = {
186
185
path : Path .t ;
@@ -225,7 +224,6 @@ let locToString = function
225
224
| LModule _ -> " LModule"
226
225
| TopLevelModule _ -> " TopLevelModule"
227
226
| TypeDefinition _ -> " TypeDefinition"
228
- | Explanation _ -> " Explanation"
229
227
230
228
let locationToString ({Location. loc_start; loc_end} , loc ) =
231
229
let pos1 = Utils. cmtPosToPosition loc_start in
You can’t perform that action at this time.
0 commit comments