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

basic-cli 0.15, test fixes

Browse source
This commit is contained in:
Anton-4 2024-08-28 18:39:15 +02:00
parent c897f5ec79
commit 7938e4bdc8
No known key found for this signature in database
GPG key ID: 0971D718C0A9B937
38 changed files with 114 additions and 114 deletions
Download patch file Download diff file Expand all files Collapse all files

10
crates/compiler/test_mono/src/tests.rs
View file

@ -3319,9 +3319,9 @@ fn capture_void_layout_task() {
Fx a : {} -> a
Task ok err : Fx (Result ok err)
OtherTask ok err : Fx (Result ok err)
succeed : ok -> Task ok *
succeed : ok -> OtherTask ok *
succeed = \ok -> \{} -> Ok ok
after : Fx a, (a -> Fx b) -> Fx b
@ -3333,7 +3333,7 @@ fn capture_void_layout_task() {
afterInner
await : Task a err, (a -> Task b err) -> Task b err
await : OtherTask a err, (a -> OtherTask b err) -> OtherTask b err
await = \fx, toNext ->
inner = after fx \result ->
when result is
@ -3343,12 +3343,12 @@ fn capture_void_layout_task() {
Err e -> (\{} -> Err e)
inner
forEach : List a, (a -> Task {} err) -> Task {} err
forEach : List a, (a -> OtherTask {} err) -> OtherTask {} err
forEach = \list, fromElem ->
List.walk list (succeed {}) \task, elem ->
await task \{} -> fromElem elem
main : Task {} []
main : OtherTask {} []
main =
forEach [] \_ -> succeed {}
"#