Unrestrict source overloads to errors be exceptions

Author: Jimmy Byrd

src/FsToolkit.ErrorHandling.TaskResult/TaskResultCE.fs

@@ -150,7 +150,7 @@ module TaskResultCEExtensions =
     /// <summary>
     /// Method lets us transform data types into our internal representation.
     /// </summary>
-    member inline __.Source(asyncComputation : Async<_>) : Task<Result<_,_>> = asyncComputation |> TaskResult.ofAsync
+    member inline __.Source(asyncComputation : Async<_>) : Task<Result<_,_>> = asyncComputation |> Async.StartAsTask |> Task.map Ok
 
     /// <summary>
     /// Method lets us transform data types into our internal representation.

src/FsToolkit.ErrorHandling/AsyncResultCE.fs

@@ -125,10 +125,10 @@ module AsyncResultCEExtensions =
     /// <summary>
     /// Method lets us transform data types into our internal representation.
     /// </summary>
-    member inline _.Source(task : Task<_>) : Async<Result<_,_>> = task |> AsyncResult.ofTask
+    member inline _.Source(task : Task<_>) : Async<Result<_,_>> = task |> Async.AwaitTask |> Async.map Ok
 
     /// <summary>
     /// Method lets us transform data types into our internal representation.
     /// </summary>
-    member inline _.Source(task : Task) : Async<Result<_,_>> = task |> AsyncResult.ofTaskAction
+    member inline _.Source(task : Task) : Async<Result<_,_>> =task |> Async.AwaitTask |> Async.map Ok
 #endif