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

Removed buffering (was killing performance)

Browse Source
This commit is contained in:
Michael Snoyman 2010-06-15 12:07:56 +03:00
parent 9fd1d16206
commit 8101113505
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Dispatch.hs
View File

@ -33,7 +33,6 @@ import Web.Routes.Quasi
import Language.Haskell.TH.Syntax import Language.Haskell.TH.Syntax
import qualified Network.Wai as W import qualified Network.Wai as W
import qualified Network.Wai.Enumerator as W
import Network.Wai.Middleware.CleanPath import Network.Wai.Middleware.CleanPath
import Network.Wai.Middleware.Jsonp import Network.Wai.Middleware.Jsonp
import Network.Wai.Middleware.Gzip import Network.Wai.Middleware.Gzip
@ -238,8 +237,7 @@ toWaiApp' y segments env = do
hs''' = (W.ContentType, S.fromString ct) : hs'' hs''' = (W.ContentType, S.fromString ct) : hs''
return $ W.Response s hs''' $ case c of return $ W.Response s hs''' $ case c of
ContentFile fp -> Left fp ContentFile fp -> Left fp
ContentEnum e -> Right $ W.buffer ContentEnum e -> Right $ W.Enumerator e
$ W.Enumerator e
-- | Fully render a route to an absolute URL. Since Yesod does this for you -- | Fully render a route to an absolute URL. Since Yesod does this for you
-- internally, you will rarely need access to this. However, if you need to -- internally, you will rarely need access to this. However, if you need to