yesod - 获取 POST“Content-type: application/json”的请求正文

Question

使用 yesod 0.8.0，我尝试从此示例请求中检索发布消息的正文：

curl -v -H "Accept: application/json" -H "Content-Type: application/json" -X POST -d '{"name":"oscar"}'    http://localhost:3000/user/xyz

在我的处理程序中，我看到它的唯一方法是使用

(pp, files) <- runRequestBody

But 由于内容类型而失败。还有其他函数可以做到这一点吗？

Answer 1

其他答案似乎很旧，并且是在添加下面使用的功能之前。

postFooR :: Handler Value
postFooR = do
 foo <- requireJsonBody :: Handler Foo -- get the json body as Foo (assumes FromJSON instance)
 returnJson foo -- return json (assumes ToJSON instance)

Answer 2

这是现在的操作方法。对于未来的版本，我希望添加一些方便的包装；感谢对此的意见。

解释：每个处理程序函数都位于 GGHandler sub master (Iteratee ByteString IO) monad 中。这相当复杂，但它的意思是它是一个围绕接收 ByteString 流的 Iteratee 的 Handler monad 转换器。该字节字符串流是原始请求正文。

因此，我们需要使用枚举器的消费函数来获取整个字节字符串流并将它们存储为列表。我们需要使用 lift 函数将其提升到内部 monad（Iteratee）。然后，L.fromChunks 将严格的 ByteString 列表转换为惰性 ByteString，您可以使用任何任意 JSON 库对其进行解析（Yesod 在 aeson 上进行标准化）。

我的猜测是，我可以提供的最方便的函数是 parseRequestJson :: GGHandler sm (Iteratee ByteString IO) (Maybe Data.Aeson.Value)。我可以在 yesod-json 的点发布中添加这一点。

Answer 3

在 Yesod 1.0+（也许更早，不确定）中，以下内容似乎有效：

postRootR = do
    wr <- waiRequest
    bss <- lift $ lazyConsume $ requestBody wr
    let requestBody = L.fromChunks bss