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

Weaken let sequences under let binding

Browse source
This commit is contained in:
Ayaz Hafiz 2023-01-12 10:31:06 -06:00 • committed by Folkert
parent e36f90feec
commit d27a72de1f
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
crates/compiler/constrain/src/expr.rs
View file

@ -3828,13 +3828,13 @@ fn is_generalizable_expr(mut expr: &Expr) -> bool {
OpaqueRef { argument, .. } => expr = &argument.1.value, OpaqueRef { argument, .. } => expr = &argument.1.value,
Str(_) | List { .. } | SingleQuote(_, _, _, _) | When { .. } | If { .. } Str(_) | List { .. } | SingleQuote(_, _, _, _) | When { .. } | If { .. }
| LetRec(_, _, _) | LetRec(_, _, _)
| LetNonRec(_, _)
=> { => {
return false return false
} }
// TODO(weakening) // TODO(weakening)
Var(_, _) Var(_, _)
| AbilityMember(_, _, _) | AbilityMember(_, _, _)
| LetNonRec(_, _)
| Call(_, _, _) | Call(_, _, _)
| RunLowLevel { .. } | RunLowLevel { .. }
| ForeignCall { .. } | ForeignCall { .. }

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

@ -7140,7 +7140,7 @@ mod solve_expr {
#^^^{-1} #^^^{-1}
"# "#
), ),
@r#"fun : {} -[[thunk(5) [A Str]*, thunk(5) { a : Str }]]-> Str"# @r#"fun : {} -[[thunk(5) [A Str]w_a, thunk(5) { a : Str }]]-> Str"#
); );
} }