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

basic parsing of alternative cases in when .. in

Browse source
This commit is contained in:
Stoeffel 2020-01-08 08:53:48 +01:00
parent 3a1d905b66
commit 505effd1d9
2 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/parse/mod.rs
View file

@ -889,6 +889,11 @@ pub fn case_branches<'a>(
space1_before(loc!(pattern(min_indent)), min_indent).parse(arena, state)?;
let original_indent = state.indent_col;
let indented_more = original_indent + 1;
let (loc_first_pattern_alt, state) = zero_or_more!(skip_first!(
and!(space1(min_indent), char('|')),
space1_before(loc!(pattern(min_indent)), min_indent)
))
.parse(arena, state)?;
let (spaces_before_arrow, state) = space0(min_indent).parse(arena, state)?;
// Record the spaces before the first "->", if any.
@ -912,10 +917,7 @@ pub fn case_branches<'a>(
.parse(arena, state)?;
// Record this as the first branch, then optionally parse additional branches.
branches.push(arena.alloc((
(loc_first_pattern, Vec::with_capacity_in(0, arena)),
loc_first_expr,
)));
branches.push(arena.alloc(((loc_first_pattern, loc_first_pattern_alt), loc_first_expr)));
let branch_parser = and!(
then(