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

Match wai changes for parseRequestBody

Browse Source
This commit is contained in:
Michael Snoyman 2012-02-02 12:23:25 +02:00
parent 55ee566a1c
commit 410321f7ca
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-core/Yesod/Handler.hs
View File

@ -168,8 +168,6 @@ import Data.Typeable (Typeable)
import qualified Data.IORef as I import qualified Data.IORef as I
import Control.Monad.Trans.Resource import Control.Monad.Trans.Resource
import Control.Exception.Lifted (catch) import Control.Exception.Lifted (catch)
import Network.Wai (requestBody)
import Data.Conduit (($$))
import Control.Monad.Trans.Control import Control.Monad.Trans.Control
import Control.Monad.Base import Control.Monad.Base
import Yesod.Routes.Class import Yesod.Routes.Class
@ -325,9 +323,8 @@ runRequestBody = do
rbHelper :: W.Request -> ResourceT IO RequestBodyContents rbHelper :: W.Request -> ResourceT IO RequestBodyContents
rbHelper req = rbHelper req =
(map fix1 *** map fix2) <$> (requestBody req $$ iter) (map fix1 *** map fix2) <$> (NWP.parseRequestBody NWP.lbsBackEnd req)
where where
iter = NWP.parseRequestBody NWP.lbsBackEnd req
fix1 = go *** go fix1 = go *** go
fix2 (x, NWP.FileInfo a b c) = fix2 (x, NWP.FileInfo a b c) =
(go x, FileInfo (go a) (go b) c) (go x, FileInfo (go a) (go b) c)