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

guard exhaustiveness

Browse source
This commit is contained in:
Folkert 2020-03-21 23:33:37 +01:00
parent a16d48a6a9
commit 1f3b8f7d68
4 changed files with 104 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

24
compiler/mono/src/expr.rs
View file

@ -1,5 +1,5 @@
use crate::layout::{Builtin, Layout};
use crate::pattern::Ctor;
use crate::pattern::{Ctor, Guard};
use bumpalo::collections::Vec;
use bumpalo::Bump;
use roc_can;
@ -996,9 +996,18 @@ fn from_can_when<'a>(
let mono_pattern = from_can_pattern(env, &loc_when_pattern.value);
// record pattern matches can have 1 branch and typecheck, but may still not be exhaustive
let guard = if first.guard.is_some() {
Guard::HasGuard
} else {
Guard::NoGuard
};
match crate::pattern::check(
Region::zero(),
&[Located::at(loc_when_pattern.region, mono_pattern.clone())],
&[(
Located::at(loc_when_pattern.region, mono_pattern.clone()),
guard,
)],
) {
Ok(_) => {}
Err(errors) => panic!("Errors in patterns: {:?}", errors),
@ -1037,10 +1046,19 @@ fn from_can_when<'a>(
None
};
let guard = if mono_guard.is_some() {
Guard::HasGuard
} else {
Guard::NoGuard
};
for loc_pattern in when_branch.patterns {
let mono_pattern = from_can_pattern(env, &loc_pattern.value);
loc_branches.push(Located::at(loc_pattern.region, mono_pattern.clone()));
loc_branches.push((
Located::at(loc_pattern.region, mono_pattern.clone()),
guard.clone(),
));
let mut stores = Vec::with_capacity_in(1, env.arena);