language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-27 05:49:08 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Use fixpoint-fixing in unification

Browse source
This commit is contained in:
Ayaz Hafiz 2022-11-15 09:54:32 -06:00
parent 9a7402f40b
commit 5a92947326
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
2 changed files with 170 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

36
crates/compiler/unify/src/fix.rs
View file

@ -8,6 +8,24 @@ struct Update {
update_var: Variable,
}
#[must_use]
pub fn fix_fixpoint(subs: &mut Subs, left: Variable, right: Variable) -> Vec<Variable> {
let updates = find_chain(subs, left, right);
let mut new = vec![];
for Update {
source_of_truth,
update_var,
} in updates
{
let source_of_truth_desc = subs.get_without_compacting(source_of_truth);
subs.union(source_of_truth, update_var, source_of_truth_desc);
new.push(source_of_truth);
}
new
}
fn find_chain(subs: &Subs, left: Variable, right: Variable) -> impl Iterator<Item = Update> {
let left = subs.get_root_key_without_compacting(left);
let right = subs.get_root_key_without_compacting(right);
@ -250,21 +268,3 @@ fn find_chain(subs: &Subs, left: Variable, right: Variable) -> impl Iterator<Ite
Err(())
}
}
#[must_use]
pub fn fix_fixpoint(subs: &mut Subs, left: Variable, right: Variable) -> Vec<Variable> {
let updates = find_chain(subs, left, right);
let mut new = vec![];
for Update {
source_of_truth,
update_var,
} in updates
{
let source_of_truth_desc = subs.get_without_compacting(source_of_truth);
subs.union(source_of_truth, update_var, source_of_truth_desc);
new.push(source_of_truth);
}
new
}