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"
    }