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

case when to case is

Browse source
This commit is contained in:
Chad Stearns 2019-12-23 17:08:53 -05:00
parent aaae923e59
commit 9a5b6a03b4
10 changed files with 31 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/parse/mod.rs
View file

@ -636,6 +636,7 @@ fn reserved_keyword<'a>() -> impl Parser<'a, ()> {
string(keyword::ELSE),
string(keyword::CASE),
string(keyword::WHEN),
string(keyword::IS),
string(keyword::AS)
)
}
@ -778,13 +779,13 @@ pub fn case_expr<'a>(min_indent: u16) -> impl Parser<'a, Expr<'a>> {
loc!(move |arena, state| parse_expr(min_indent, arena, state)),
min_indent,
),
string(keyword::WHEN)
string(keyword::IS)
)
)
),
move |arena, state, (case_indent, loc_condition)| {
if case_indent < min_indent {
panic!("TODO case wasns't indented enough");
panic!("TODO case wasn't indented enough");
}
// Everything in the branches must be indented at least as much as the case itself.