haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implemented rawRequestBody

Browse Source
This commit is contained in:
Michael Snoyman 2013-03-14 07:35:09 +02:00
parent 8e793c70cc
commit 0f1637a1aa
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
yesod-core/Yesod/Core/Handler.hs
View File

@ -137,6 +137,8 @@ import Control.Monad.Trans.Resource (MonadResource, liftResourceT)
import qualified Network.HTTP.Types as H import qualified Network.HTTP.Types as H
import qualified Network.Wai as W import qualified Network.Wai as W
import Control.Monad.Trans.Class (lift)
import Data.Conduit (transPipe)
import qualified Data.Text as T import qualified Data.Text as T
import Data.Text.Encoding (decodeUtf8With, encodeUtf8) import Data.Text.Encoding (decodeUtf8With, encodeUtf8)
@ -883,5 +885,7 @@ provideRepType ct handler =
-- | Stream in the raw request body without any parsing. -- | Stream in the raw request body without any parsing.
-- --
-- Since 1.2.0 -- Since 1.2.0
rawRequestBody :: Source m S.ByteString rawRequestBody :: (HandlerReader m, MonadResource m) => Source m S.ByteString
rawRequestBody = error "rawRequestBody" rawRequestBody = do
req <- lift waiRequest
transPipe liftResourceT $ W.requestBody req