浏览代码

[display] skip KAbstractImpl classes for toplevel completion (see #3310)

Dan Korostelev 11 年之前
父节点
当前提交
ecb177eb74
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      typer.ml

+ 5 - 2
typer.ml

@@ -432,8 +432,11 @@ let collect_toplevel_identifiers ctx =
 	let module_params = ref [] in
 	let module_params = ref [] in
 
 
 	let add_type mt =
 	let add_type mt =
-		let path = (t_infos mt).mt_path in
-		if not (List.exists (fun mt2 -> (t_infos mt2).mt_path = path) !module_params) then module_params := mt :: !module_params
+		match mt with
+		| TClassDecl {cl_kind = KAbstractImpl _} -> ()
+		| _ ->
+			let path = (t_infos mt).mt_path in
+			if not (List.exists (fun mt2 -> (t_infos mt2).mt_path = path) !module_params) then module_params := mt :: !module_params
 	in
 	in
 
 
 	(* module types *)
 	(* module types *)