Rename Task.seq -> Task.sequence

This commit is contained in:
Sam Mohr 2024-07-31 13:35:36 -07:00
parent bb9b7d22b5
commit bdb50912b8
2 changed files with 6 additions and 6 deletions

View file

@ -11,7 +11,7 @@ module [
loop, loop,
fromResult, fromResult,
batch, batch,
seq, sequence,
forEach, forEach,
result, result,
] ]
@ -200,20 +200,20 @@ batch = \current -> \next ->
## fetchAuthorTasks : List (Task Author [DbError]) ## fetchAuthorTasks : List (Task Author [DbError])
## ##
## getAuthors : Task (List Author) [DbError] ## getAuthors : Task (List Author) [DbError]
## getAuthors = Task.seq fetchAuthorTasks ## getAuthors = Task.sequence fetchAuthorTasks
## ``` ## ```
## ##
seq : List (Task ok err) -> Task (List ok) err sequence : List (Task ok err) -> Task (List ok) err
seq = \taskList -> sequence = \taskList ->
Task.loop (taskList, List.withCapacity (List.len taskList)) \(tasks, values) -> Task.loop (taskList, List.withCapacity (List.len taskList)) \(tasks, values) ->
when tasks is when tasks is
[task, .. as rest] -> [task, .. as rest] ->
value = task! value = task!
Task.ok (Step (rest, List.append values value)) Task.ok (Step (rest, List.append values value))
[] -> [] ->
Task.ok (Done values) Task.ok (Done values)
## Apply a task repeatedly for each item in a list ## Apply a task repeatedly for each item in a list
## ##
## ``` ## ```

View file

@ -1758,7 +1758,7 @@ define_builtins! {
9 TASK_MAP_ERR: "mapErr" 9 TASK_MAP_ERR: "mapErr"
10 TASK_FROM_RESULT: "fromResult" 10 TASK_FROM_RESULT: "fromResult"
11 TASK_BATCH: "batch" 11 TASK_BATCH: "batch"
12 TASK_SEQ: "seq" 12 TASK_SEQUENCE: "sequence"
13 TASK_FOR_EACH: "forEach" 13 TASK_FOR_EACH: "forEach"
14 TASK_RESULT: "result" 14 TASK_RESULT: "result"
} }