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

Don't simplify backpassing record assignment

Browse source
This commit is contained in:
Joshua Warner 2024-12-15 10:08:25 -08:00
parent c6d5983ff2
commit 10e7e24184
No known key found for this signature in database
GPG key ID: 89AD497003F93FDD
5 changed files with 72 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
crates/compiler/fmt/src/def.rs
View file

@ -991,6 +991,7 @@ pub fn fmt_body<'a>(
&& pattern_extracted.after.iter().all(|s| s.is_newline()) && pattern_extracted.after.iter().all(|s| s.is_newline())
&& !matches!(body.extract_spaces().item, Expr::Defs(..)) && !matches!(body.extract_spaces().item, Expr::Defs(..))
&& !matches!(body.extract_spaces().item, Expr::Return(..)) && !matches!(body.extract_spaces().item, Expr::Return(..))
&& !matches!(body.extract_spaces().item, Expr::Backpassing(..))
&& !starts_with_expect_ident(body) && !starts_with_expect_ident(body)
} else { } else {
false false

4
crates/compiler/test_syntax/tests/snapshots/pass/empty_record_assign_backpassing.expr.formatted.roc Normal file
View file

@ -0,0 +1,4 @@
{} =
i <- t
C
C

62
crates/compiler/test_syntax/tests/snapshots/pass/empty_record_assign_backpassing.expr.result-ast Normal file
View file

@ -0,0 +1,62 @@
@0-14 SpaceAfter(
Defs(
Defs {
tags: [
EitherIndex(2147483648),
],
regions: [
@0-12,
],
space_before: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
space_after: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
spaces: [],
type_defs: [],
value_defs: [
Body(
@0-2 RecordDestructure(
[],
),
@5-12 SpaceBefore(
Backpassing(
[
@5-6 Identifier {
ident: "i",
},
],
@8-9 Var {
module_name: "",
ident: "t",
},
@11-12 SpaceBefore(
Tag(
"C",
),
[
Newline,
],
),
),
[
Newline,
],
),
),
],
},
@13-14 SpaceBefore(
Tag(
"C",
),
[
Newline,
],
),
),
[
Newline,
],
)

4
crates/compiler/test_syntax/tests/snapshots/pass/empty_record_assign_backpassing.expr.roc Normal file
View file

@ -0,0 +1,4 @@
{}=
i<-t
C
C

1
crates/compiler/test_syntax/tests/test_snapshots.rs
View file

@ -402,6 +402,7 @@ mod test_snapshots {
pass/empty_package_header.header, pass/empty_package_header.header,
pass/empty_platform_header.header, pass/empty_platform_header.header,
pass/empty_record.expr, pass/empty_record.expr,
pass/empty_record_assign_backpassing.expr,
pass/empty_record_assign_expect_bang.expr, pass/empty_record_assign_expect_bang.expr,
pass/empty_record_assign_implements.expr, pass/empty_record_assign_implements.expr,
pass/empty_record_assign_return.expr, pass/empty_record_assign_return.expr,