Скотти, WAI: захват тела запроса

Question

Кажется, я больше не могу перехватить тело запроса. Все началось здесь, когда я столкнулся с проблемой после обновления. Я пытался исследовать это и добрался до точки, где я не могу получить тело запроса вместе со Скотти body не работает ни с функциями 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))

Так что же я делаю не так, чтобы поймать тело запроса? Какие изменения были сделаны в Скотти в последнее время, чтобы он перестал работать как обычно?

Спасибо