haskell - 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

但这因内容类型而失败。是否有其他功能可以做到这一点？

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)