roc-lang/roc
1
1
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2024-11-11 16:51:53 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #5288 from roc-lang/i4725

Browse Source 
Do not replace already-recursive lambda sets in occurs checks
This commit is contained in:
Ayaz 2023-04-12 17:08:34 -05:00 committed by GitHub
commit 8739099bdc
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
crates/compiler/solve/src/solve.rs
View File

@ -3609,7 +3609,7 @@ fn check_for_infinite_type(
}
Content::LambdaSet(subs::LambdaSet {
solved,
recursion_var: _,
recursion_var: OptVariable::NONE,
unspecialized,
ambient_function: ambient_function_var,
}) => {

25
crates/compiler/uitest/tests/recursive_type/multiple_nested_recursive_lambda_sets.txt Normal file
View File

@ -0,0 +1,25 @@
# +opt infer:print_only_under_alias
app "test" provides [main] to "./platform"
Effect : {} -> Str
after = \fx, toNext ->
afterInner = \{} ->
fxOut = fx {}
next = toNext fxOut
next {}
afterInner
await : Effect, (Str -> Effect) -> Effect
await = \fx, cont -> after fx (\result -> cont result)
line : Str -> Effect
line = \s -> \{} -> s
main =
#^^^^{-1} {} -[[afterInner(8) ({} -[[afterInner(8) ({} -a-> Str) (Str -[[13 (Str -[[20 Str]]-> ({} -[[16 Str]]-> Str))]]-> ({} -[[16 Str]]-> Str)), 16 Str] as a]-> Str) (Str -[[13 (Str -[[21]]-> ({} -[[16 Str]]-> Str))]]-> ({} -[[16 Str]]-> Str))] as [[afterInner(8) ({} -[[afterInner(8) ({} -a-> Str) (Str -[[13 (Str -[[20 Str]]-> ({} -[[16 Str]]-> Str))]]-> ({} -[[16 Str]]-> Str)), 16 Str] as a]-> Str) (Str -[[13 (Str -[[21]]-> ({} -[[16 Str]]-> Str))]]-> ({} -[[16 Str]]-> Str))] as b]]-> Str
await
(List.walk ["a", "b"] (line "printing letters") (\state, elem -> await state (\_ -> line elem)))
(\_ -> line "")