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

Question

我有一个查询，可以在suave中返回大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))