fix order of Task.sequence

This commit is contained in:
Luke Boswell 2024-07-29 19:50:50 +10:00
parent 4a5c00e81e
commit aabe75ff87
No known key found for this signature in database
GPG key ID: F6DB3C9DB47377B0

View file

@ -205,7 +205,7 @@ batch = \current -> \next ->
##
seq : List (Task ok err) -> Task (List ok) err
seq = \tasks ->
List.walk tasks (ok []) \state, task ->
List.walkBackwards tasks (ok []) \state, task ->
value <- task |> await
state |> map \values -> List.append values value