Refactors orElse/orElseWith to not use CE

Author: TheAngryByrd

src/FsToolkit.ErrorHandling.TaskResult/TaskResult.fs

@@ -12,14 +12,9 @@ module TaskResult =
   let mapError f tr =
     Task.map (Result.mapError f) tr    
 
-  let bind f (tr : Task<_>) = task {
-    let! result = tr
-    let t = 
-      match result with 
-      | Ok x -> f x
-      | Error e -> task { return Error e }
-    return! t      
-  }
+  let bind f (tr : Task<_>) = 
+    tr
+    |> Task.bind(Result.either f (Error >> Task.singleton))
 
   let foldResult onSuccess onError tr =
     Task.map (Result.fold onSuccess onError) tr

src/FsToolkit.ErrorHandling/AsyncResult.fs

@@ -11,31 +11,30 @@ module AsyncResult =
   let mapError f ar =
     Async.map (Result.mapError f) ar    
 
-  let bind f ar = async {
-    let! result = ar
-    let t = 
-      match result with 
-      | Ok x -> f x
-      | Error e -> async { return Error e }
-    return! t      
-  }
+  let bind f ar = 
+    ar
+    |> Async.bind(Result.either f (Error >> Async.singleton))
 
   let foldResult onSuccess onError ar =
     Async.map (Result.fold onSuccess onError) ar
 
 #if !FABLE_COMPILER
 
   let ofTask aTask = 
-    aTask
-    |> Async.AwaitTask 
-    |> Async.Catch 
-    |> Async.map Result.ofChoice
+    async.Delay(fun () ->
+      aTask
+      |> Async.AwaitTask 
+      |> Async.Catch 
+      |> Async.map Result.ofChoice
+    )
 
   let ofTaskAction (aTask : Task) = 
-    aTask
-    |> Async.AwaitTask 
-    |> Async.Catch 
-    |> Async.map Result.ofChoice
+    async.Delay(fun () ->
+      aTask
+      |> Async.AwaitTask 
+      |> Async.Catch 
+      |> Async.map Result.ofChoice
+    )
 
 #endif