Bladeren bron

[display] mark wildcard import positions

closes #7080
Simon Krajewski 7 jaren geleden
bovenliggende
commit
28c9edee10
1 gewijzigde bestanden met toevoegingen van 7 en 1 verwijderingen
  1. 7 1
      src/typing/typeload.ml

+ 7 - 1
src/typing/typeload.ml

@@ -130,7 +130,13 @@ let load_type_def ctx p t =
 				| [] ->
 					raise Exit
 				| (pack,ppack) :: l ->
-					(try load_type ctx (pack,t.tname) tname p with Not_found -> loop l)
+					begin try
+						let mt = load_type ctx (pack,t.tname) tname p in
+						ImportHandling.mark_import_position ctx.com ppack;
+						mt
+					with Not_found ->
+						loop l
+					end
 			in
 			(* Check wildcard packages by using their package *)
 			loop ctx.m.wildcard_packages