QPQ-AG/sophia
10
0
Fork 0
Code Issues 41 Pull Requests 5 Actions Packages Projects Releases 16 Wiki Activity

Polymorphism support #848

Merged
ghallak merged 53 commits from ghallak/307 into master 2022-06-17 18:09:07 +09:00
Conversation 97 Commits 53 Files Changed 28 +5 -9
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 2883b41beb - Show all commits

14
src/aeso_ast_infer_types.erl
View File

@ -1157,17 +1157,13 @@ infer_type_vars_variance(TypeParams, Cons) ->
Vs = lists:flatten([infer_type_vars_variance(Arg) || Arg <- FlatArgs]),
lists:map(fun({tvar, _, TVar}) ->
S = sets:from_list([Variance || {TV, Variance} <- Vs, TV == TVar]),
IsInvariant = sets:is_element(invariant, S),
IsCovariant = sets:is_element(covariant, S),
IsContravariant = sets:is_element(contravariant, S),
IsBivariant = sets:is_element(bivariant, S),
case {IsInvariant, IsCovariant, IsContravariant, IsBivariant} of
{true, _, _, _} -> invariant;
{false, true, true, _} -> invariant;
{false, _, _, true} -> bivariant;
{false, true, false, _} -> covariant;
{false, false, true, _} -> contravariant;
_ -> invariant
case {IsCovariant, IsContravariant} of
{true, true} -> invariant;
{true, false} -> covariant;
{false, true} -> contravariant;
{false, false} -> bivariant
end
end, TypeParams).