mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-30 07:14:46 +00:00
21 lines
665 B
Text
21 lines
665 B
Text
app [main] { pf: platform "https://github.com/roc-lang/basic-cli/releases/download/0.17.0/lZFLstMUCUvd5bjnnpYromZJXkQUrdhbva4xdBInicE.tar.br" }
|
|
|
|
import pf.Stdout
|
|
|
|
main =
|
|
multiple_in =
|
|
{ sequential <-
|
|
a: Task.ok(123),
|
|
b: Task.ok("abc"),
|
|
c: Task.ok([123]),
|
|
_d: Task.ok(["abc"]),
|
|
_: Task.ok(Dict.single("a", "b")),
|
|
}!
|
|
|
|
Stdout.line!("For multiple tasks: $(Inspect.to_str(multiple_in))")
|
|
|
|
sequential : Task a err, Task b err, (a, b -> c) -> Task c err
|
|
sequential = \first_task, second_task, mapper ->
|
|
first = first_task!
|
|
second = second_task!
|
|
Task.ok(mapper(first, second))
|