Add comparable typevar constraints #881

Open
ghallak wants to merge 15 commits from ghallak/229 into master
Showing only changes of commit 9d296f04cb - Show all commits

View File

@ -2217,9 +2217,9 @@ destroy_and_report_unsolved_constraints(Env) ->
(_) -> false (_) -> false
end, OtherCs3), end, OtherCs3),
{TVarsCs, []} = {TVarsCs, []} =
lists:partition(fun({is_eq, _}) -> true; lists:partition(fun({is_eq, _}) -> true;
({is_ord, _}) -> true; ({is_ord, _}) -> true;
(_) -> false (_) -> false
end, OtherCs4), end, OtherCs4),
Unsolved = [ S || S <- [ solve_constraint(Env, dereference_deep(C)) || C <- NamedArgCs ], Unsolved = [ S || S <- [ solve_constraint(Env, dereference_deep(C)) || C <- NamedArgCs ],