Forráskód Böngészése

actually check `is_import` flag (closes #2263)

Simon Krajewski 10 éve
szülő
commit
9e790a1a6a
2 módosított fájl, 1 hozzáadás és 1 törlés
  1. 1 1
      main.ml
  2. 0 0
      tests/misc/projects/Issue2263/type-completion.hxml

+ 1 - 1
main.ml

@@ -1702,7 +1702,7 @@ with
 				let statics = ref None in
 				let public_types = List.filter (fun t ->
 					let tinfos = t_infos t in
-					if snd tinfos.mt_path = c then begin match t with
+					if is_import && snd tinfos.mt_path = c then begin match t with
 						| TClassDecl c ->
 							ignore(c.cl_build());
 							statics := Some c.cl_ordered_statics

+ 0 - 0
tests/misc/projects/Issue2263/type-completion.hxml.disabled → tests/misc/projects/Issue2263/type-completion.hxml