occurrences: use the cache, Luke !

voodoos · Feb 29, 2024 · 278872f · 278872f
1 parent 96a95bd
commit 278872f
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/analysis/occurrences.ml b/src/analysis/occurrences.ml
@@ -35,11 +35,11 @@ let index_buffer_ ~current_buffer_path ~local_defs () =
       let read_unit_shape ~unit_name =
           log ~title:"read_unit_shape" "inspecting %s" unit_name;
           let cmt = Format.sprintf "%s.cmt" unit_name in
-          match Cmt_format.read (Load_path.find_normalized cmt) with
-          | _, Some cmt_infos ->
+          match Cmt_cache.read (Load_path.find_normalized cmt) with
+          | { cmt_infos = { cmt_impl_shape; _ }; _ } ->
             log ~title:"read_unit_shape" "shapes loaded for %s" unit_name;
-            cmt_infos.cmt_impl_shape
-          | exception _ | _ ->
+            cmt_impl_shape
+          | exception _ ->
             log ~title:"read_unit_shape" "failed to find %s" unit_name;
             None
     end)