ソースを参照

Default impl without server

Rudy Ges 7 ヶ月 前
コミット
aa248705b8
1 ファイル変更1 行追加1 行削除
  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