mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-11 06:16:21 +00:00
17 lines
471 B
Text
17 lines
471 B
Text
interface InternalTask
|
|
exposes [Task, fromEffect, toEffect, succeed, fail]
|
|
imports [Effect.{ Effect }]
|
|
|
|
Task ok err := Effect (Result ok err)
|
|
|
|
succeed : ok -> Task ok *
|
|
succeed = \ok -> @Task (Effect.always (Ok ok))
|
|
|
|
fail : err -> Task * err
|
|
fail = \err -> @Task (Effect.always (Err err))
|
|
|
|
fromEffect : Effect (Result ok err) -> Task ok err
|
|
fromEffect = \effect -> @Task effect
|
|
|
|
toEffect : Task ok err -> Effect (Result ok err)
|
|
toEffect = \@Task effect -> effect
|