Refactor

Author: AntonStrand

src/Insurello.AsyncExtra/AsyncExtra.fs

@@ -77,12 +77,14 @@ module AsyncResult =
 
     let traverse : ('a -> 'b) -> List<AsyncResult<'a, 'err>> -> AsyncResult<'b list, 'err> =
         fun transformer list ->
-            let rec fold acc =
-                function
+            let cons tail head = head :: tail
+
+            let rec fold remaining acc =
+                match remaining with
                 | [] -> acc |> List.rev |> singleton
-                | xA :: xAs -> bind (fun x -> fold (transformer x :: acc) xAs) xA
+                | xA :: xAs -> xA |> bind (transformer >> cons acc >> fold xAs)
 
-            fold [] list
+            fold list []
 
     let sequence : List<AsyncResult<'a, 'error>> -> AsyncResult<'a list, 'error> = fun list -> traverse id list