Async<('a -> 'b) option> -> Async<'a option>
-> Async<'b option>
// string -> int
let characterCount (s: string) = s.Length
let result =
AsyncOption.some "foo" // Async<string option>
|> AsyncOption.apply (AsyncOption.some characterCount) // Async<int option>
// async { Some 3 }
let result =
Async.singleton None // Async<string option>
|> AsyncOption.apply (AsyncOption.some characterCount) // Async<int option>
// async { None }
let result : Async<int option> =
AsyncOption.some "foo" // Async<string option>
|> AsyncOption.apply (Async.singleton None) // Async<int option>
// async { None }