roc-lang/roc
1
1
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2024-09-20 15:27:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

move test

Browse Source
This commit is contained in:
Folkert 2021-02-16 23:13:49 +01:00
parent c788965182
commit 3e39255769
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
examples/benchmarks/ClosureBorrowed.roc → examples/benchmarks/Closure1.roc
View File

6
examples/benchmarks/platform/Task.roc
View File

@ -24,10 +24,10 @@ after = \effect, transform ->
map : Task a err, (a -> b) -> Task b err
map = \effect, transform ->
Effect.after effect \result ->
Effect.map effect \result ->
when result is
Ok a -> Task.succeed (transform a)
Err err -> Effect.always (Err err) # Task.fail err does not work. WEIRD!
Ok a -> Ok (transform a)
Err err -> Err err
putLine : Str -> Task {} *
putLine = \line -> Effect.map (Effect.putLine line) (\_ -> Ok {})