json - 如何在 Suave 中流式传输大型 json？

Question

我有一个查询可以温和地返回一个大的 JSON：

let queryCustomers(term, sorted:string) =
    use db = DbClient.openConn()
    let sort = sorted |> Customers.strToSorted

    CustomerDb.querySearch(db, term, sort) |>JsonUtils.toJson

查询返回一个 Seq。

现在，我一步将所有查询转换为 JSON，但想知道是否可以加快整个操作并流回结果：

let doReq route request action =
    path route >=> setCORSHeaders >=> request (fun r -> action(r) |> setJson)

doReq "/customers" request (fun r -> queryCustomers(r |> getTerm, r |> getSort))