Don't filter hidden nodes when doing occurrences

Author: liam923

src/analysis/ast_iterators.ml

@@ -162,6 +162,8 @@ let iter_on_usages ~f (local_defs : Mtyper.typedtree) =
     | `Implementation structure -> iter.structure iter structure
   end
 
-let iterator_on_usages ~f =
+let iterator_on_usages ~include_hidden ~f =
   let occ_iter = Cmt_format.iter_on_occurrences ~f in
-  iter_only_visible occ_iter
+  match include_hidden with
+  | false -> iter_only_visible occ_iter
+  | true -> occ_iter

src/analysis/index_occurrences.ml

@@ -81,7 +81,7 @@ let iterator ~current_buffer_path ~index ~stamp ~reduce_for_uid =
             index_decl ()
         end
   in
-  Ast_iterators.iterator_on_usages ~f
+  Ast_iterators.iterator_on_usages ~include_hidden:true ~f
 
 let items ~index ~stamp (config : Mconfig.t) items =
   let module Shape_reduce = Shape_reduce.Make (struct