language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-28 06:14:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Fix unifying optional fields

Browse source
This commit is contained in:
Richard Feldman 2020-07-18 14:16:46 -04:00
parent eb3ee8ffa3
commit 98a8bb8115
2 changed files with 43 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -614,6 +614,17 @@ fn unify_shared_tags(
}
}
fn has_no_required_fields<'a, I, T>(fields: &mut I) -> bool
where
I: Iterator<Item = &'a RecordField<T>>,
T: 'a,
{
fields.all(|field| match field {
RecordField::Required(_) => false,
RecordField::Optional(_) => true,
})
}
#[inline(always)]
fn unify_flat_type(
subs: &mut Subs,
@ -627,11 +638,11 @@ fn unify_flat_type(
match (left, right) {
(EmptyRecord, EmptyRecord) => merge(subs, ctx, Structure(left.clone())),
(Record(fields, ext), EmptyRecord) if fields.is_empty() => {
(Record(fields, ext), EmptyRecord) if has_no_required_fields(&mut fields.values()) => {
unify_pool(subs, pool, *ext, ctx.second)
}
(EmptyRecord, Record(fields, ext)) if fields.is_empty() => {
(EmptyRecord, Record(fields, ext)) if has_no_required_fields(&mut fields.values()) => {
unify_pool(subs, pool, ctx.first, *ext)
}