language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-10-03 08:34:33 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

fix bug in guard constraint gen

Browse source
This commit is contained in:
Folkert 2020-03-21 15:12:01 +01:00
parent a040bc971a
commit bd7ad318cf
4 changed files with 64 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

40
compiler/constrain/src/uniq.rs
View file

@ -1470,13 +1470,13 @@ fn constrain_when_branch(
if let Some(loc_guard) = &when_branch.guard {
let guard_uniq_var = var_store.fresh();
state.vars.push(guard_uniq_var);
let bool_type = attr_type(
Bool::variable(guard_uniq_var),
Type::Variable(Variable::BOOL),
);
state.constraints.push(constrain_expr(
let guard_constraint = constrain_expr(
env,
var_store,
var_usage,
@ -1484,17 +1484,33 @@ fn constrain_when_branch(
loc_guard.region,
&loc_guard.value,
Expected::ForReason(Reason::WhenGuard, bool_type, loc_guard.region),
));
}
);
Constraint::Let(Box::new(LetConstraint {
rigid_vars: Vec::new(),
flex_vars: state.vars,
def_types: state.headers,
def_aliases: SendMap::default(),
defs_constraint: Constraint::And(state.constraints),
ret_constraint,
}))
Constraint::Let(Box::new(LetConstraint {
rigid_vars: Vec::new(),
flex_vars: state.vars,
def_types: state.headers,
def_aliases: SendMap::default(),
defs_constraint: Constraint::And(state.constraints),
ret_constraint: Constraint::Let(Box::new(LetConstraint {
rigid_vars: Vec::new(),
flex_vars: vec![guard_uniq_var],
def_types: SendMap::default(),
def_aliases: SendMap::default(),
defs_constraint: guard_constraint,
ret_constraint,
})),
}))
} else {
Constraint::Let(Box::new(LetConstraint {
rigid_vars: Vec::new(),
flex_vars: state.vars,
def_types: state.headers,
def_aliases: SendMap::default(),
defs_constraint: Constraint::And(state.constraints),
ret_constraint,
}))
}
}
fn constrain_def_pattern(