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

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
Download patch file Download diff file Expand all files Collapse all files

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 "")