haskell - Scotty，WAI：捕获请求正文

Question

我似乎不再能够捕获请求正文。当我在更新后遇到问题时，一切都从这里开始。我试图对其进行调查，结果我无法使用 scotty 的body函数或使用 Scotty 构建的 Network.WAI 函数获取请求正文。只有当我能得到它时，我才能自己解析 json 主体。

我正在尝试这个，但它不起作用。我只是得到一个空的字节串。

import qualified Data.ByteString.Char8 as C
import           Control.Monad.Trans (liftIO)
import           Web.Scotty.Trans
import           Network.Wai (requestBody)

loginUser :: ActionD ()
loginUser = do
  r <- request
  b <- liftIO $ requestBody r
  if C.null b then error "Empty" else error ("Body: " ++ (C.unpack b))

那么我在捕获请求正文方面做错了什么？最近对 Scotty 进行了哪些更改，使其无法正常工作？

谢谢