Преглед изворни кода

[typer] flush PConnectField when loading modules while typing fields

see #9811
Simon Krajewski пре 5 година
родитељ
комит
12a78f8b8c
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      src/typing/typeloadModule.ml

+ 1 - 1
src/typing/typeloadModule.ml

@@ -1096,7 +1096,7 @@ let load_module ctx m p =
 				raise (Forbid_package (inf,p::pl,pf))
 	) in
 	add_dependency ctx.m.curmod m2;
-	if ctx.pass = PTypeField then flush_pass ctx PBuildClass "load_module";
+	if ctx.pass = PTypeField then flush_pass ctx PConnectField "load_module";
 	m2
 
 (* let load_module ctx m p =