f# - 在 Suave.io 中使用组合器清理 mapJsonAsync

Question

在 suave.io 中，有一个函数mapJson：

let mapJson (f: 'a -> 'b) =
  request(fun r ->
    f (fromJson r.rawForm) 
    |> toJson
    |> Successful.ok 
    >=> Writers.setMimeType "application/json")

有没有办法使用组合器来制作类似的异步版本？我可以手写如下

let mapJsonAsync (f: 'a -> Async<'b>) (ctx: HttpContext) =
  async {
    let! x = f(fromJson ctx.request.rawForm)
    let resp = Successful.ok (toJson x) >>= Writers.setMimeType "application/json"
    return! resp ctx
  }

但最好不必显式定义ctx中间值。

Answer 1

我看不出有什么办法。最后一个表达式可以简化一点。

let mapJsonAsync (f: 'a -> Async<'b>) =
  fun (ctx : HttpContext) ->
    async{
      let! result = f (fromJson ctx.request.rawForm)
      return Successful.ok (toJson result ) ctx >>= Writers.setMimeType "application/json"
    }