macos - 为什么我没有使用此 F# 代码在 OSX 上获得输出，但我在 Windows 上获得了输出

Question

我正在尝试在我的 macbook pro 上执行以下 F# 脚本代码使用 FSI在 visual studio code和 ionide插入。

#r "packages/Newtonsoft.Json.9.0.1/lib/net40/Newtonsoft.Json.dll"
#r "System.Net.Http"

open System
open System.Net.Http
open Newtonsoft.Json

let client = new HttpClient()

type AlbumInfo = { userId:int; id:int; title:string }

let url = "https://jsonplaceholder.typicode.com/albums/1"

async {
    let! res = Async.AwaitTask <| client.GetAsync(url)
    let! content = Async.AwaitTask <| res.Content.ReadAsStringAsync()
    let  x = JsonConvert.DeserializeObject<AlbumInfo>(content)

    printfn "%s" x.title
} |> Async.Start

printfn "Please wait..."

但除了 Please wait... 我没有得到任何输出.然而，当我把 https://jsonplaceholder.typicode.com/albums/1进入浏览器，我得到了预期的 Json回复。所以我知道访问 API 没有问题。

另外，当我在 Visual Studio 2013 中运行相同的代码时在我的 Windows 10个人电脑。代码产生了预期的结果。即 Please wait...和 title专辑的。

任何想法为什么它不能在我的 macbook 上正常工作?

Answer 1

在 Visual Studio 中，有一个进程托管 FSI 并为 async 保留线程(池)。计算活着。在命令行或 VS Code 上的 FSI 中，FSI 将在主线程完成写入后立即终止 Please wait... (通常是在线程池上开始计算之前)。

如果您想观察 async 的副作用计算你必须等待它的结果(在这个例子中 unit ):

let computation = async {
    printfn "Starting async"
    let! res = Async.AwaitTask <| client.GetAsync(url)
    let! content = Async.AwaitTask <| res.Content.ReadAsStringAsync()
    let x = JsonConvert.DeserializeObject<AlbumInfo>(content)
    printfn "Downloaded %s" x.title
}

async {
    let! started = computation |> Async.StartChild
    let! _ = Async.Sleep 1 // only here to get interleaved ouput
    printfn "Please wait..."
    let! res = started
    printfn "Got result %A" res
} |> Async.RunSynchronously

可能会打印:

Starting async
Please wait...
Downloaded quidem molestiae enim
Got result <null>