如何在yesod中查看原始请求主体？

Question

为了进行调试，我希望看到正在发送的原始请求正文 到我的yesod应用程序。

我知道如何使用runRequestBody https://www.stackage.org/haddock/lts-7.0/yesod-core-1.4.24/Yesod-Core-Handler.html#v:runRequestBody

现在有rawRequestBody。我正在使用

rawRequestBody Data.Conduit.$$ Data.Conduit.List.consume

在defaultLayout内但结果始终为空。

实际的表示是一个管道，所以我怀疑它已经在这个时候已经耗尽了。然后我什么时候才能在数据保存状态下看到这个？假设这是可能的，那么如何在不删除其内容的情况下阅读它呢？

Answer 1

试试这个

import qualified Data.Conduit.Text as CT
import qualified Data.Conduit.List as CL

rawRequestBody $$ CT.decode CT.utf8 =$ CL.consume