Skip to content

Commit 5855edf

Browse files
committed
minor
1 parent 79e267e commit 5855edf

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/typing/typer.ml

+2-2
Original file line numberDiff line numberDiff line change
@@ -1318,7 +1318,7 @@ and handle_efield ctx e p mode =
13181318
*)
13191319
let def() =
13201320
try
1321-
let m = ctx.g.do_load_module ctx (pack,name) p in
1321+
let m = TypeloadModule.load_module ctx (pack,name) p in
13221322
let main_type_field () =
13231323
let t = Typeload.find_type_in_module_raise m name p in
13241324
let e = type_module_type ctx t None p in
@@ -1411,7 +1411,7 @@ and handle_efield ctx e p mode =
14111411
| None -> def());
14121412
| _ ->
14131413
(* no more parts or next part starts with lowercase - it's surely not a type name,
1414-
so do the default thing: resolve fields against primary module type *)
1414+
so do the default thing *)
14151415
def())
14161416

14171417
| [] ->

0 commit comments

Comments
 (0)