haskell - Scotty、WAI: リクエストボディのキャプチャ

Question

リクエストボディをキャプチャできなくなったようです。更新後に問題が発生したとき、すべてがここから始まりました。私はそれを調査しようとしていましたが、scotty の関数でも、Scotty が構築する Network.WAI 関数でも、リクエスト本文を取得できないところまで来ましbodyた。おそらく、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 が通常どおり機能しなくなるように、最近、Scotty にどのような変更が加えられましたか?

ありがとう