language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-07-24 06:55:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Weaken variables bound to when expressions

Browse source
This commit is contained in:
Ayaz Hafiz 2023-01-11 17:10:59 -06:00
parent a2f04d1fa3
commit 9462f44bb7
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
2 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
crates/compiler/solve/tests/solve_expr.rs
View file

@ -6672,6 +6672,7 @@ mod solve_expr {
main =
choice : [T, U]
# Should not get generalized
idChoice =
#^^^^^^^^{-1}
when choice is
@ -6685,7 +6686,7 @@ mod solve_expr {
@r###"
A#id(4) : A -[[id(4)]]-> A
idNotAbility : a -[[idNotAbility(5)]]-> a
idChoice : a -[[idNotAbility(5)] + a:id(2):1]-> a | a has Id
idChoice : A -[[id(4), idNotAbility(5)]]-> A
idChoice : A -[[id(4), idNotAbility(5)]]-> A
"###
)
@ -6707,6 +6708,7 @@ mod solve_expr {
main =
choice : [T, U]
# Should not get generalized
idChoice =
#^^^^^^^^{-1}
when choice is
@ -6719,7 +6721,7 @@ mod solve_expr {
),
@r#"
A#id(4) : A -[[id(4)]]-> A
idChoice : a -[[] + a:id(2):1]-> a | a has Id
idChoice : A -[[id(4)]]-> A
idChoice : A -[[id(4)]]-> A
"#
)
@ -8582,8 +8584,8 @@ mod solve_expr {
"#
),
@r###"
a : [A Str]*
b : [A Str]*
a : [A Str]w_a
b : [A Str]w_a
"###
);
}