Bladeren bron

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

Simon Krajewski 12 jaren geleden
bovenliggende
commit
876ecb5fd0
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  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