Add Async<'value voption> support to asyncOptionCE

src/FsToolkit.ErrorHandling/AsyncOptionCE.fs

@@ -95,7 +95,17 @@ module AsyncOptionCE =
             else
                 this.Bind(computation, (fun () -> this.While(guard, computation)))
 
+
+        /// <summary>
+        /// Method lets us transform data types into our internal representation.
+        /// </summary>
+        member inline _.Source(vopt: Async<'value voption>) : Async<'value option> =
+            async {
+                let! v = vopt
+                return Option.ofValueOption v
+            }
 
+
         /// <summary>
         /// Method lets us transform data types into our internal representation. This is the identity method to recognize the self type.
         ///

tests/FsToolkit.ErrorHandling.Tests/AsyncOptionCE.fs

@@ -35,6 +35,15 @@ let ``AsyncOptionCE return! Tests`` =
             Expect.equal actual (data) "Should be ok"
         }
 
+        testCaseAsync "Return ValueSome AsyncOption"
+        <| async {
+            let innerData = "Foo"
+            let data = ValueSome innerData
+            let! actual = asyncOption { return! data }
+
+            Expect.equal actual (data) "Should be ok"
+        }
+
         testCaseAsync "Return Some AsyncOption"
         <| async {
             let innerData = "Foo"
@@ -96,6 +105,21 @@ let ``AsyncOptionCE bind Tests`` =
 
         }
 
+        testCaseAsync "Bind ValueSome AsyncOption"
+        <| async {
+            let innerData = "Foo"
+            let data = ValueSome innerData
+
+            let! actual =
+                asyncOption {
+                    let! data = data
+                    return data
+                }
+
+            Expect.equal actual (data) "Should be ok"
+
+        }
+
         testCaseAsync "Bind Some AsyncOption"
         <| async {
             let innerData = "Foo"