tokono.ma
1module Task.Extra exposing (do, doDelayed, fromResult)
2
3import Process
4import Task
5
6
7
8-- 🔱
9
10
11do : msg -> Cmd msg
12do msg =
13 Task.perform identity (Task.succeed msg)
14
15
16doDelayed : Float -> msg -> Cmd msg
17doDelayed delay msg =
18 Task.perform (always msg) (Process.sleep delay)
19
20
21fromResult : Result error value -> Task.Task error value
22fromResult result =
23 case result of
24 Ok v ->
25 Task.succeed v
26
27 Err e ->
28 Task.fail e