Jelajahi Sumber

Default impl without server

Rudy Ges 7 bulan lalu
induk
melakukan
aa248705b8
1 mengubah file dengan 1 tambahan dan 1 penghapusan
  1. 1 1
      src/typing/typeloadCacheHook.ml

+ 1 - 1
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