Fix purity removal

This commit is contained in:
Joshua Warner 2024-12-01 18:44:54 -08:00
parent 8c25c9aaf7
commit b06afa7bb9
No known key found for this signature in database
GPG key ID: 89AD497003F93FDD
5 changed files with 61 additions and 2 deletions

View file

@ -0,0 +1,2 @@
t : (w -> p)ca
it

View file

@ -0,0 +1,54 @@
Defs(
Defs {
tags: [
EitherIndex(2147483648),
],
regions: [
@0-10,
],
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 Identifier {
ident: "t",
},
@2-10 Tuple {
elems: [
@3-7 Function(
[
@3-4 BoundVariable(
"w",
),
],
Effectful,
@6-7 BoundVariable(
"p",
),
),
],
ext: Some(
@8-10 BoundVariable(
"ca",
),
),
},
),
],
},
@11-13 SpaceBefore(
Var {
module_name: "",
ident: "it",
},
[
Newline,
],
),
)

View file

@ -0,0 +1,2 @@
t:(w=>p)a
t

View file

@ -388,6 +388,7 @@ mod test_snapshots {
pass/expect.expr,
pass/expect_defs.moduledefs,
pass/expect_single_line.expr,
pass/ext_on_fn_ty.expr,
pass/extra_newline.expr,
pass/extra_newline_in_parens.expr,
pass/f_not_not_f.expr,