Fix final traverse

Author: isaacabraham

src/FsToolkit.ErrorHandling/List.fs

@@ -70,7 +70,8 @@ module List =
 
   let rec private traverseAsyncResultA' state f xs =
     match xs with
-    | [] -> state
+    | [] ->
+      state |> AsyncResult.map List.rev
     | x :: xs ->
       async {
         let! s = state