From aa248705b8505c8d26c6c5445e96e8e0cec27a2d Mon Sep 17 00:00:00 2001 From: Rudy Ges Date: Wed, 12 Feb 2025 07:10:09 +0100 Subject: [PATCH] Default impl without server --- src/typing/typeloadCacheHook.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/typing/typeloadCacheHook.ml b/src/typing/typeloadCacheHook.ml index a12fc3dc122..64e0f03a7ee 100644 --- a/src/typing/typeloadCacheHook.ml +++ b/src/typing/typeloadCacheHook.ml @@ -10,7 +10,7 @@ type find_module_result = | BinaryModule of HxbData.module_cache | NoModule -let find_module_extra_hook : (Common.context -> path -> module_def_extra) ref = ref (fun _ _ -> raise Not_found) +let find_module_extra_hook : (Common.context -> path -> module_def_extra) ref = ref (fun com mpath -> (com.module_lut#find mpath).m_extra) let type_module_hook : (Common.context -> (typer_pass -> (unit -> unit) -> unit) -> path -> pos -> find_module_result) ref = ref (fun _ _ _ _ -> NoModule) let fake_modules = Hashtbl.create 0