async-of-async.fsx

open System

/// Asynchronously loads some data from the DB
let fetchDataFromDb () = async {
    printfn "Loading DB data..."
    return 99
}

let random = Random()

/// Asynchronously loads some data from the network
let fetchDataFromNetwork () = async {
    printfn "Fetching data from network..."
    return random.Next 10
}

/// Asynchronously creates a function to fetch data from the network, and adds it to the *cached* DB value.
let createFetchFromNetwork () = async {
    let! dbValue = fetchDataFromDb ()
    return async {
        let! networkValue = fetchDataFromNetwork ()
        return networkValue + dbValue
    }
}