add zipError to AsyncResult/TaskResult/JobResult

Author: sep2

src/FsToolkit.ErrorHandling.JobResult/JobResult.fs

@@ -148,6 +148,11 @@ module JobResult =
   let zip j1 j2 =
     Job.zip j1 j2
     |> Job.map(fun (r1, r2) -> Result.zip r1 r2)
+    
+  /// Takes two results and returns a tuple of the error pair
+  let zipError j1 j2 =
+    Job.zip j1 j2
+    |> Job.map(fun (r1, r2) -> Result.zipError r1 r2)
 
   /// Catches exceptions and maps them to the Error case using the provided function.
   let catch f x =

src/FsToolkit.ErrorHandling.TaskResult/TaskResult.fs

@@ -143,6 +143,11 @@ module TaskResult =
     Task.zip x1 x2
     |> Task.map(fun (r1, r2) -> Result.zip r1 r2)
 
+  /// Takes two results and returns a tuple of the error pair
+  let zipError x1 x2 = 
+    Task.zip x1 x2
+    |> Task.map(fun (r1, r2) -> Result.zipError r1 r2)
+
   /// Catches exceptions and maps them to the Error case using the provided function.
   let catch f x =
     x

src/FsToolkit.ErrorHandling/AsyncResult.fs

@@ -153,6 +153,11 @@ module AsyncResult =
     Async.zip x1 x2
     |> Async.map(fun (r1, r2) -> Result.zip r1 r2)
 
+  /// Takes two results and returns a tuple of the error pair
+  let zipError x1 x2 = 
+    Async.zip x1 x2
+    |> Async.map(fun (r1, r2) -> Result.zipError r1 r2)
+
   /// Catches exceptions and maps them to the Error case using the provided function.
   let catch f x =
     x