F#等待任务并使用其结果

open System
open System.Threading.Tasks

let fetchDataFromServer() =
    async {
        // 模拟从服务器获取数据的异步操作
        do! Task.Delay(TimeSpan.FromSeconds(2)) |> Async.AwaitTask
        return "Data from server"
    }

let processResult(result: string) =
    async {
        // 模拟处理结果的异步操作
        do! Task.Delay(TimeSpan.FromSeconds(1)) |> Async.AwaitTask
        printfn "Processed result: %s" result
    }

let main() =
    async {
        // 等待任务并使用其结果
        let! data = fetchDataFromServer()
        do! processResult data |> Async.Ignore
        printfn "Task completed"
    }
    |> Async.Start

main()