special-case rose tree field access

This commit is contained in:
Folkert 2021-06-16 23:16:14 +02:00
parent a1231058da
commit 11ed2cbcf8
5 changed files with 14 additions and 3 deletions

View file

@ -1438,6 +1438,12 @@ pub fn build_exp_expr<'a, 'ctx, 'env>(
structure,
wrapped: Wrapped::RecordOrSingleTagUnion,
..
}
| AccessAtIndex {
index,
structure,
wrapped: Wrapped::LikeARoseTree,
..
} => {
// extract field from a record
match load_symbol_and_layout(scope, structure) {