language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-28 22:34:45 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

no manual rank hacking please

Browse source
This commit is contained in:
Folkert 2021-05-05 14:49:54 +02:00
parent 149ddf7309
commit 5372c45cdd
1 changed files with 2 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

24
compiler/unify/src/unify.rs
View file

@ -229,33 +229,13 @@ fn unify_structure(
}
RecursionVar { structure, .. } => match flat_type {
FlatType::TagUnion(_, _) => {
let structure_rank = subs.get(*structure).rank;
let self_rank = subs.get(ctx.first).rank;
let other_rank = subs.get(ctx.second).rank;
// unify the structure with this unrecursive tag union
let problems = unify_pool(subs, pool, ctx.first, *structure);
let min_rank = structure_rank.min(self_rank).min(other_rank);
subs.set_rank(*structure, min_rank);
subs.set_rank(ctx.first, min_rank);
subs.set_rank(ctx.second, min_rank);
problems
unify_pool(subs, pool, ctx.first, *structure)
}
FlatType::RecursiveTagUnion(rec, _, _) => {
debug_assert!(is_recursion_var(subs, *rec));
let structure_rank = subs.get(*structure).rank;
let self_rank = subs.get(ctx.first).rank;
let other_rank = subs.get(ctx.second).rank;
// unify the structure with this recursive tag union
let problems = unify_pool(subs, pool, ctx.first, *structure);
let min_rank = structure_rank.min(self_rank).min(other_rank);
subs.set_rank(*structure, min_rank);
subs.set_rank(ctx.first, min_rank);
subs.set_rank(ctx.second, min_rank);
problems
unify_pool(subs, pool, ctx.first, *structure)
}
_ => todo!("rec structure {:?}", &flat_type),
},