Add ok and error helper functions to TaskResultOption and AsyncResultOption modules

Author: tw0po1nt

gitbook/SUMMARY.md

@@ -131,6 +131,7 @@
     * [apply](asyncResultOption/apply.md)
     * [bind](asyncResultOption/bind.md)
     * [Computation Expression](asyncResultOption/ce.md)
+    * [error](asyncResultOption/error.md)
     * [ignore](asyncResultOption/ignore.md)
     * [map](asyncResultOption/map.md)
     * [map2](asyncResultOption/map2.md)
@@ -196,6 +197,7 @@
     * [apply](taskResultOption/apply.md)
     * [bind](taskResultOption/bind.md)
     * [Computation Expression](taskResultOption/ce.md)
+    * [error](taskResultOption/error.md)
     * [ignore](taskResultOption/ignore.md)
     * [map](taskResultOption/map.md)
     * [map2](taskResultOption/map2.md)

gitbook/asyncResultOption/error.md

@@ -0,0 +1,22 @@
+## AsyncResultOption.error
+
+Namespace: `FsToolkit.ErrorHandling`
+
+Lift an `'error` value into an `Async<Result<'ok option, 'error>>`
+
+## Function Signature:
+
+```fsharp
+'error -> Async<Result<'ok option, 'error>>
+```
+
+## Examples
+
+### Example 1
+
+
+```fsharp
+let result : Async<Result<int option, string>> =
+  AsyncResultOption.error "Something bad happened"
+```
+

gitbook/taskResultOption/error.md

@@ -0,0 +1,22 @@
+## TaskResultOption.error
+
+Namespace: `FsToolkit.ErrorHandling`
+
+Lift an `'error` value into an `Task<Result<'ok option, 'error>>`
+
+## Function Signature:
+
+```fsharp
+'error -> Task<Result<'ok option, 'error>>
+```
+
+## Examples
+
+### Example 1
+
+
+```fsharp
+let result : Task<Result<int option, string>> =
+  TaskResultOption.error "Something bad happened"
+```
+

src/FsToolkit.ErrorHandling/AsyncResultOption.fs

@@ -24,6 +24,13 @@ module AsyncResultOption =
             )
             input
 
+    let inline ok x =
+        Ok(Some x)
+        |> Async.singleton
+
+    let inline error x : Async<Result<'ok option, 'error>> =
+        Error x
+        |> Async.singleton
 
     let inline map2
         ([<InlineIfLambda>] mapper: 'okInput1 -> 'okInput2 -> 'okOutput)

src/FsToolkit.ErrorHandling/TaskResultOption.fs

@@ -23,6 +23,10 @@ module TaskResultOption =
 
     let inline singleton value = TaskResult.ok (Some value)
 
+    let inline ok x = singleton x
+
+    let inline error x : TaskResult<'ok option, 'error> = TaskResult.error x
+
     let inline apply fTRO xTRO = map2 (fun f x -> f x) fTRO xTRO
 
     /// Replaces the wrapped value with unit