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

yesod-core: On handlerToIO, avoid 'sourceList []'.

Browse Source
This commit is contained in:
Felipe Lessa 2012-08-20 13:13:46 -03:00
parent 786b5bc6e2
commit dc14783c81
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -178,7 +178,6 @@ import Control.Exception.Lifted (catch)
import Control.Monad.Trans.Control import Control.Monad.Trans.Control
import Control.Monad.Trans.Resource import Control.Monad.Trans.Resource
import Control.Monad.Base import Control.Monad.Base
import Data.Conduit.List (sourceList)
import Yesod.Routes.Class import Yesod.Routes.Class
import Data.Word (Word64) import Data.Word (Word64)
import Language.Haskell.TH.Syntax (Loc) import Language.Haskell.TH.Syntax (Loc)
@ -436,7 +435,7 @@ handlerToIO =
-- Let go of the request body, cache and response headers. -- Let go of the request body, cache and response headers.
let oldReq = handlerRequest oldHandlerData let oldReq = handlerRequest oldHandlerData
oldWaiReq = reqWaiRequest oldReq oldWaiReq = reqWaiRequest oldReq
newWaiReq = oldWaiReq { W.requestBody = sourceList [] } newWaiReq = oldWaiReq { W.requestBody = mempty }
newReq = oldReq { reqWaiRequest = newWaiReq newReq = oldReq { reqWaiRequest = newWaiReq
, reqBodySize = 0 } , reqBodySize = 0 }
newState <- liftIO $ do newState <- liftIO $ do