Port TaskResult to Ply

Author: NinoFloris

paket.dependencies

@@ -2,10 +2,11 @@ source https://api.nuget.org/v3/index.json
 
 
 storage: none
+nuget FSharp.Core 4.6.2
 nuget Hopac
 nuget Microsoft.SourceLink.GitHub prerelease copy_local: true
 nuget Microsoft.NETFramework.ReferenceAssemblies copy_local: true # allows for building full framework on macOS/linux without mono
-nuget TaskBuilder.fs
+nuget Ply
 
 group Test
 source https://api.nuget.org/v3/index.json
@@ -28,4 +29,4 @@ nuget Fake.DotNet.Testing.Expecto 5.20.0
 nuget Fake.Tools.Git 5.20.0
 nuget Fake.JavaScript.Npm 5.20.0
 nuget Fake.Api.GitHub 5.20.0
-nuget Paket.Core 6.0.0-alpha022
+nuget Paket.Core 6.0.0-alpha022

paket.lock

@@ -2,7 +2,7 @@
 
   <PropertyGroup>
     <OutputType>Library</OutputType>
-    <TargetFrameworks>netstandard2.0;net461</TargetFrameworks>
+    <TargetFramework>netstandard2.0</TargetFramework>
     <DebugType>portable</DebugType>
     <PublishRepositoryUrl>true</PublishRepositoryUrl> 
     <EmbedUntrackedSources>true</EmbedUntrackedSources>  

src/FsToolkit.ErrorHandling.JobResult/FsToolkit.ErrorHandling.JobResult.fsproj

@@ -1,4 +1,3 @@
-TaskBuilder.fs
 Microsoft.SourceLink.GitHub
 Hopac
 Microsoft.NETFramework.ReferenceAssemblies

src/FsToolkit.ErrorHandling.JobResult/paket.references

@@ -2,7 +2,7 @@
 
   <PropertyGroup>
     <OutputType>Library</OutputType>
-    <TargetFrameworks>netstandard2.0;net461</TargetFrameworks>
+    <TargetFramework>netstandard2.0</TargetFramework>
     <DebugType>portable</DebugType>
     <PublishRepositoryUrl>true</PublishRepositoryUrl> 
     <EmbedUntrackedSources>true</EmbedUntrackedSources>  

src/FsToolkit.ErrorHandling.TaskResult/FsToolkit.ErrorHandling.TaskResult.fsproj

@@ -1,7 +1,8 @@
 namespace FsToolkit.ErrorHandling
+
 open System.Threading.Tasks
 open FsToolkit.ErrorHandling
-open FSharp.Control.Tasks.V2.ContextInsensitive
+open FSharp.Control.Tasks
 
 [<RequireQualifiedAccess>]
 module List =
@@ -55,4 +56,4 @@ module List =
         traverseTaskResultA' f xs
 
     let sequenceTaskResultA xs =
-        traverseTaskResultA id xs
+        traverseTaskResultA id xs

src/FsToolkit.ErrorHandling.TaskResult/List.fs

@@ -1,7 +1,7 @@
 namespace FsToolkit.ErrorHandling
 
 open System.Threading.Tasks
-open FSharp.Control.Tasks.V2.ContextInsensitive
+open FSharp.Control.Tasks
 
 module Result =
 

src/FsToolkit.ErrorHandling.TaskResult/Result.fs

@@ -1,8 +1,7 @@
 namespace FsToolkit.ErrorHandling
 
 open System.Threading.Tasks
-open FSharp.Control.Tasks.V2.ContextInsensitive
-
+open FSharp.Control.Tasks
 
 [<RequireQualifiedAccess>]
 module Task =
@@ -33,4 +32,4 @@ module Task =
     return r1,r2
   }
 
-  let ofUnit (t : Task) = task { return! t }
+  let ofUnit (t : Task) = task { return! t }

src/FsToolkit.ErrorHandling.TaskResult/Task.fs

@@ -1,8 +1,9 @@
 namespace FsToolkit.ErrorHandling.Operator.Task
+
 open FsToolkit.ErrorHandling
 
 [<AutoOpen>]
 module Task =
   let inline (<!>) f x = Task.map f x
   let inline (<*>) f x = Task.apply f x
-  let inline (>>=) x f = Task.bind f x
+  let inline (>>=) x f = Task.bind f x

src/FsToolkit.ErrorHandling.TaskResult/TaskOp.fs

@@ -1,7 +1,7 @@
 namespace FsToolkit.ErrorHandling
 
 open System.Threading.Tasks
-open FSharp.Control.Tasks.V2.ContextInsensitive
+open FSharp.Control.Tasks
 
 [<RequireQualifiedAccess>]
 module TaskOption = 
@@ -24,4 +24,4 @@ module TaskOption =
 
     let apply f x =
         bind (fun f' ->
-          bind (fun x' -> retn (f' x')) x) f
+          bind (fun x' -> retn (f' x')) x) f