We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
include
1 parent 916713c commit f780ac3Copy full SHA for f780ac3
ocaml-lsp-server/src/folding_range.ml
@@ -256,8 +256,11 @@ let fold_over_parsetree (parsetree : Mreader.parsetree) =
256
| Pstr_extension _ ->
257
Range.of_loc structure_item.pstr_loc |> push;
258
Ast_iterator.default_iterator.structure_item self structure_item
259
- | Pstr_primitive _ | Pstr_exception _ | Pstr_include _ | Pstr_attribute _
260
- -> ()
+ | Pstr_include { pincl_loc; pincl_mod; pincl_attributes } ->
+ push @@ Range.of_loc pincl_loc;
261
+ self.module_expr self pincl_mod;
262
+ self.attributes self pincl_attributes
263
+ | Pstr_primitive _ | Pstr_exception _ | Pstr_attribute _ -> ()
264
in
265
266
{ Ast_iterator.default_iterator with
0 commit comments