Adds AsyncOption, TaskOption, JobOption helpers

* TaskOption
Working on #77 -> AsyncOption.map

* TaskOption
Wirking on #77 -> AsyncOption.Bind

* TaskOption
Working on #77 -> AsyncOption.apply

* TaskOption
Working on #77 -> AsyncOption.retn

* TaskOption
Working on #77 -> AsyncOption basic Operators

* TaskOption
Working on #77 -> TaskOption basic Functions

* TaskOption
Fixes #77 -> JobOption

* TaskOption
Fixes #77 -> Add AsyncOption Tests to execution

Author: Micha-kun

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

@@ -21,8 +21,10 @@
     <Compile Include="Job.fs" />
     <Compile Include="JobResult.fs" />
     <Compile Include="JobResultCE.fs" />
-    <Compile Include="JobOptionCE.fs" />
     <Compile Include="JobResultOp.fs" />
+    <Compile Include="JobOption.fs" />
+    <Compile Include="JobOptionCE.fs" />
+    <Compile Include="JobOptionOp.fs" />
     <Compile Include="List.fs" />
     <Compile Include="JobResultOption.fs" />
     <Compile Include="JobResultOptionCE.fs" />

src/FsToolkit.ErrorHandling.JobResult/JobOption.fs

@@ -0,0 +1,26 @@
+namespace FsToolkit.ErrorHandling
+
+open Hopac
+open Hopac.Infixes
+
+[<RequireQualifiedAccess>]
+module JobOption = 
+    
+    let inline map f ar =
+        Job.map (Option.map f) ar
+
+    let bind f (ar: Job<_>) = job {
+        let! opt = ar
+        let t = 
+          match opt with 
+          | Some x -> f x
+          | None -> job { return None }
+        return! t      
+      }
+
+    let retn x =
+        job { return Some x }
+
+    let apply f x =
+        bind (fun f' ->
+          bind (fun x' -> retn (f' x')) x) f

src/FsToolkit.ErrorHandling.JobResult/JobOptionOp.fs

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

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

@@ -24,7 +24,9 @@
     <Compile Include="TaskResultCE.fs" />
     <Compile Include="TaskResultOp.fs" />
     <Compile Include="List.fs" />
+    <Compile Include="TaskOption.fs" />
     <Compile Include="TaskOptionCE.fs" />
+    <Compile Include="TaskOptionOp.fs" />
     <Compile Include="TaskResultOption.fs" />
     <Compile Include="TaskResultOptionCE.fs" />
     <Compile Include="TaskResultOptionOp.fs" />

src/FsToolkit.ErrorHandling.TaskResult/TaskOption.fs

@@ -0,0 +1,27 @@
+namespace FsToolkit.ErrorHandling
+
+open System.Threading.Tasks
+open FSharp.Control.Tasks.V2.ContextInsensitive
+
+[<RequireQualifiedAccess>]
+module TaskOption = 
+    
+    let inline map f ar =
+        Task.map (Option.map f) ar
+
+    let bind f (ar: Task<_>) =
+      task {
+        let! opt = ar
+        let t = 
+          match opt with 
+          | Some x -> f x
+          | None -> task { return None }
+        return! t      
+      }
+
+    let retn x =
+      task { return Some x }
+
+    let apply f x =
+        bind (fun f' ->
+          bind (fun x' -> retn (f' x')) x) f

src/FsToolkit.ErrorHandling.TaskResult/TaskOptionOp.fs

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

src/FsToolkit.ErrorHandling/AsyncOption.fs

@@ -0,0 +1,25 @@
+namespace FsToolkit.ErrorHandling
+
+open System.Threading.Tasks
+
+[<RequireQualifiedAccess>]
+module AsyncOption = 
+    
+    let inline map f ar =
+        Async.map (Option.map f) ar
+
+    let bind f ar = async {
+        let! opt = ar
+        let t = 
+          match opt with 
+          | Some x -> f x
+          | None -> async { return None }
+        return! t      
+      }
+
+    let retn x =
+      async { return Some x }
+
+    let apply f x =
+        bind (fun f' ->
+          bind (fun x' -> retn (f' x')) x) f

src/FsToolkit.ErrorHandling/AsyncOptionOp.fs

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

src/FsToolkit.ErrorHandling/FsToolkit.ErrorHandling.fsproj

@@ -37,7 +37,9 @@
     <Compile Include="ValidationCE.fs" />
     <Compile Include="Option.fs" />
     <Compile Include="OptionCE.fs" />
+    <Compile Include="AsyncOption.fs" />
     <Compile Include="AsyncOptionCE.fs" />
+    <Compile Include="AsyncOptionOp.fs" />
     <Compile Include="List.fs" />
     <None Include="Script.fsx" />
   </ItemGroup>

tests/FsToolkit.ErrorHandling.JobResult.Tests/Expect.JobOption.fs

@@ -0,0 +1,21 @@
+namespace Expects.JobOption
+
+module Expect =
+  open Expecto
+  open Hopac
+
+  let hasJobValue v jobX =
+    let x = run jobX
+    if v = x then
+      ()
+    else Tests.failtestf "Expected %A, was %A." v x
+
+
+  let hasJobSomeValue v jobX = 
+    let x = run jobX
+    TestHelpers.Expect.hasSomeValue v x
+
+
+  let hasJobNoneValue jobX = 
+    let x = run jobX
+    TestHelpers.Expect.hasNoneValue x