Index only user-written modules

Signed-off-by: Ulysse Gérard <thevoodoos@gmail.com>
ocaml · May 14, 2024 · 3ca862a · 3ca862a
1 parent cf5ac2a
commit 3ca862a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/dune_rules/merlin/ocaml_index.ml b/src/dune_rules/merlin/ocaml_index.ml
@@ -21,9 +21,10 @@ let cctx_rules cctx () =
      definitions are used by all the cmts of modules in this cctx. *)
   let dir = CC.dir cctx in
   let modules =
+    (* We only index occurrences in user-written modules *)
     CC.modules cctx
     |> Modules.With_vlib.drop_vlib
-    |> Modules.fold ~init:[] ~f:(fun x acc -> x :: acc)
+    |> Modules.fold_user_written ~init:[] ~f:(fun x acc -> x :: acc)
   in
   let sctx = CC.super_context cctx in
   let obj_dir = CC.obj_dir cctx in