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

Correctly introduce new recursion variables at the correct rank

Browse source
This commit is contained in:
Ayaz Hafiz 2023-04-20 17:30:04 -05:00
parent 7beee4e1f3
commit 5ec2715820
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
4 changed files with 56 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

10
crates/compiler/uitest/tests/recursive_type/generalize_introduced_recursion_variable_issue_4770.txt Normal file
View file

@ -0,0 +1,10 @@
app "test" provides [main] to "./platform"
main = isCorrectOrder (IsList [IsStr ""])
# ^^^^^^^^^^^^^^ [IsList (List [IsList (List a), IsStr Str]), IsStr Str] -[[isCorrectOrder(1)]]-> Bool
isCorrectOrder = \pair ->
#^^^^^^^^^^^^^^{-1} [IsList (List [IsList (List a), IsStr *]), IsStr *] -[[isCorrectOrder(1)]]-> Bool
when pair is
IsList l -> List.all l isCorrectOrder
IsStr _ -> isCorrectOrder (IsList [pair])