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 6

report first type error

Browse source
This commit is contained in:
Folkert 2020-04-01 23:37:05 +02:00
parent 106a3646bf
commit 8642cfeae0
5 changed files with 124 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

15
compiler/constrain/src/expr.rs
View file

@ -355,16 +355,19 @@ pub fn constrain_expr(
branches,
final_else,
} => {
let bool_type = Type::Variable(Variable::BOOL);
let expect_bool = Expected::ForReason(Reason::IfCondition, bool_type, region);
let expect_bool = |region| {
let bool_type = Type::Variable(Variable::BOOL);
Expected::ForReason(Reason::IfCondition, bool_type, region)
};
let mut branch_cons = Vec::with_capacity(2 * branches.len() + 3);
// TODO why does this cond var exist? is it for error messages?
let first_cond_region = branches[0].0.region;
let cond_var_is_bool_con = Eq(
Type::Variable(*cond_var),
expect_bool.clone(),
expect_bool(first_cond_region),
Category::If,
Region::zero(),
first_cond_region,
);
branch_cons.push(cond_var_is_bool_con);
@ -376,7 +379,7 @@ pub fn constrain_expr(
env,
loc_cond.region,
&loc_cond.value,
expect_bool.clone(),
expect_bool(loc_cond.region),
);
let then_con = constrain_expr(
@ -424,7 +427,7 @@ pub fn constrain_expr(
env,
loc_cond.region,
&loc_cond.value,
expect_bool.clone(),
expect_bool(loc_cond.region),
);
let then_con = constrain_expr(