409: read cmis with get_cached_entry as in 49e703a

ocaml · Nov 28, 2019 · 81d6415 · 81d6415
1 parent 2f303dd
commit 81d6415
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ocaml/typing/409/env.ml b/src/ocaml/typing/409/env.ml
@@ -2922,7 +2922,7 @@ let check_state_consistency () =
     | _ -> false
     | exception Not_found -> true
   and found _modname filename pm =
-    match !(Cmi_cache.(read filename).Cmi_cache.cmi_cache) with
+    match !(Cmi_cache.(get_cached_entry filename).Cmi_cache.cmi_cache) with
     | Cmi_cache_store sg -> Std.lazy_eq sg pm.pm_signature
     | _ -> false
     | exception Not_found -> false