language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-26 13:29:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

exhaustive expects type index

Browse source
This commit is contained in:
Ayaz Hafiz 2022-10-25 08:58:40 -05:00
parent c4016547af
commit cbade622b6
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
2 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

18
crates/compiler/constrain/src/expr.rs
View file

@ -902,13 +902,15 @@ pub fn constrain_expr(
// Now check the condition against the type expected by the branches.
let sketched_rows = sketch_when_branches(branches_region, branches);
let expected_by_branches = constraints.push_expected_type(Expected::ForReason(
Reason::WhenBranches,
branches_cond_type,
branches_region,
));
let cond_matches_branches_constraint = constraints.exhaustive(
real_cond_var,
loc_cond.region,
Ok((
loc_cond.value.category(),
Expected::ForReason(Reason::WhenBranches, branches_cond_type, branches_region),
)),
Ok((loc_cond.value.category(), expected_by_branches)),
sketched_rows,
ExhaustiveContext::BadCase,
*exhaustive,
@ -2562,14 +2564,14 @@ fn constrain_typed_function_arguments(
// annotation wants.
let sketched_rows = sketch_pattern_to_rows(loc_pattern.region, &loc_pattern.value);
let category = loc_pattern.value.category();
let expected = PExpected::ForReason(
let expected = constraints.push_pat_expected_type(PExpected::ForReason(
PReason::TypedArg {
index: HumanIndex::zero_based(index),
opt_name: opt_label,
},
Type::Variable(*pattern_var),
loc_pattern.region,
);
));
let exhaustive_constraint = constraints.exhaustive(
annotation_var,
loc_pattern.region,
@ -2677,14 +2679,14 @@ fn constrain_typed_function_arguments_simple(
// annotation wants.
let sketched_rows = sketch_pattern_to_rows(loc_pattern.region, &loc_pattern.value);
let category = loc_pattern.value.category();
let expected = PExpected::ForReason(
let expected = constraints.push_pat_expected_type(PExpected::ForReason(
PReason::TypedArg {
index: HumanIndex::zero_based(index),
opt_name: Some(symbol),
},
Type::Variable(*pattern_var),
loc_pattern.region,
);
));
let exhaustive_constraint = constraints.exhaustive(
annotation_var,
loc_pattern.region,