language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-11-02 05:48:17 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Force type headers to format just like Pattern::Apply

Browse source
This commit is contained in:
Joshua Warner 2024-12-15 10:01:51 -08:00
parent df16e1b633
commit 20aee5c37b
No known key found for this signature in database
GPG key ID: 89AD497003F93FDD
14 changed files with 269 additions and 168 deletions
Download patch file Download diff file Expand all files Collapse all files

3
crates/compiler/test_syntax/tests/snapshots/pass/annotation_comment_before_colon.expr.formatted.roc
View file

@ -1,3 +1,4 @@
A e # g
A
e # g
: A
AA

3
crates/compiler/test_syntax/tests/snapshots/pass/if_in_record_field_opt_pat.expr.formatted.roc
View file

@ -1,4 +1,5 @@
O { p ? if
O
{ p ? if
a
then
A

3
crates/compiler/test_syntax/tests/snapshots/pass/parens_comment_in_ty_annotation.expr.formatted.roc
View file

@ -1,3 +1,4 @@
Zx e #
Zx
e #
f : i
s

3
crates/compiler/test_syntax/tests/snapshots/pass/pattern_opt_field_bonanza.expr.formatted.roc
View file

@ -1,4 +1,5 @@
M { s ? s
M
{ s ? s
{ J &
} }
{ s ? s

6
crates/compiler/test_syntax/tests/snapshots/pass/quotes_in_parens_in_pat.expr.formatted.roc Normal file
View file

@ -0,0 +1,6 @@
Q
(
"""
"""
"") : a
q

58
crates/compiler/test_syntax/tests/snapshots/pass/quotes_in_parens_in_pat.expr.result-ast Normal file
View file

@ -0,0 +1,58 @@
@0-15 SpaceAfter(
Defs(
Defs {
tags: [
EitherIndex(0),
],
regions: [
@0-13,
],
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: [
Alias {
header: TypeHeader {
name: @0-1 "Q",
vars: [
@2-10 Apply(
@2-8 StrLiteral(
Block(
[],
),
),
[
@8-10 StrLiteral(
PlainLine(
"",
),
),
],
),
],
},
ann: @12-13 BoundVariable(
"a",
),
},
],
value_defs: [],
},
@14-15 SpaceBefore(
Var {
module_name: "",
ident: "q",
},
[
Newline,
],
),
),
[
Newline,
],
)

2
crates/compiler/test_syntax/tests/snapshots/pass/quotes_in_parens_in_pat.expr.roc Normal file
View file

@ -0,0 +1,2 @@
Q(""""""""):a
q

3
crates/compiler/test_syntax/tests/snapshots/pass/repr_7346.expr.formatted.roc
View file

@ -1,4 +1,5 @@
il3 \k -> # w#z
CCC @C # i
CCC
@C # i
(t! K) : i
C

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

@ -0,0 +1,4 @@
1 : [
N (H S),
]
_

64
crates/compiler/test_syntax/tests/snapshots/pass/type_ann_tag_union_parens_applies.expr.result-ast Normal file
View file

@ -0,0 +1,64 @@
@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: [
Annotation(
@0-1 NumLiteral(
"1",
),
@2-12 TagUnion {
ext: None,
tags: [
@3-11 Apply {
name: @3-4 "N",
args: [
@5-10 Apply(
"",
"H",
[
@7-8 SpaceAfter(
Apply(
"",
"S",
[],
),
[
Newline,
],
),
],
),
],
},
],
},
),
],
},
@13-14 SpaceBefore(
Underscore(
"",
),
[
Newline,
],
),
),
[
Newline,
],
)

3
crates/compiler/test_syntax/tests/snapshots/pass/type_ann_tag_union_parens_applies.expr.roc Normal file
View file

@ -0,0 +1,3 @@
1:[N(H(S
))]
_

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

@ -612,6 +612,7 @@ mod test_snapshots {
pass/provides_type.header,
pass/qualified_field.expr,
pass/qualified_var.expr,
pass/quotes_in_parens_in_pat.expr,
pass/record_access_after_tuple.expr,
pass/record_builder.expr,
pass/record_builder_ignored_fields.expr,