浏览代码

remove dubious unification of abstract unop overload fields (closes #2295)

Simon Krajewski 12 年之前
父节点
当前提交
876ecb5fd0
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      typer.ml

+ 1 - 1
typer.ml

@@ -1908,7 +1908,7 @@ and type_unop ctx op flag e p =
 				(match cf.cf_expr with
 				| None ->
 					let e = make {e with etype = apply_params a.a_types pl a.a_this} in
-					unify ctx r e.etype p;
+					(* unify ctx r e.etype p; *) (* TODO: I'm not sure why this was here (related to #2295) *)
 					{e with etype = r}
 				| Some _ ->
 					let et = type_module_type ctx (TClassDecl c) None p in